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SOBRE O TK.90Ã 


Após este livro estar totalmente escrito, foi lançado o “primo rico” da linha 
Sinclair, o TK90X, compatível com o ZX-Spectrum. 

Assim sendo, o autor e o Editorial da CAMPUS desenvolveram um esforço 
para compatibilizar o livro com o TK90X. Sem perder a validade para o TK85 e 
família. 

Foram desenvolvidas diversas observações identificadas no texto por (90X99), 
ou seja, 90X seguido do número correspondente à observação. 

Os possuidores do TK90X devem ler normalmente o livro; encontrando o si¬ 
nal identificador, reportar-se à observação correspondente e . . . bom estudo de 
BANCO DE DADOS NO TK90X! 


Agora seguem-se as observações: 

(9(JX(Í1) 

Os caracteres gráficos existem no TK90X, mas são obtidos de forma diferen¬ 
te. Observe: 

5 - 

B - 

n - 

(99x92) 

No TK90X você pode usar indistintamente maiúsculas e minúsculas, inclusive 
para variáveis. O default é a letra minúscula. Quanto a variáveis, o TK90X não dife¬ 
rencia “a” de “A”. Experimente: digite LET a — 2; PRINT A e você obterá 2 no 
vídeo! 

(90X03) 

Não existem no TK90X os comandos SLOW e FAST. A velocidade-padrão do 
TK90X é o FAST, sem que isto tenha o “efeito colateral” de fazer desaparecer a 
tela, como no TK85. 

Logo, a linha 110 deve ser suprimida. 


DB 

ARQUIVO 

REGISTRO 

DADO 


(graphics shift 8) 
(graphics shift 2) 
(graphics shift 3 ; 
(graphics 4) 


li 



(90X04) 

Para se criar uma “pausa infinita" (até que se pressione uma tecla) no TK90X 
o comando é PAUSE 0, em vez de PAUSE 4E4. A propósito, o comando PAUSE no 
TK90X não provoca nenhum “tremor” na tela, como no TK85. Assim, alinha deve 
ser 

210 PAUSE 0. 

(90X05) 

O TK90X não tem o recurso das “aspas duplas” para introduzir o caractere 
aspas dentro de uma string. Como alternativa sugerimos a utilização do apóstrofo 
(symbol shift 7). 

2500 PRINT “PRINT DO W ” 

(90X06) 

Se a tela ficar completamente cheia, surge a mensagem do sistema operacio¬ 
nal: scroll? 

Se o scroll for desejado, toque qualquer tecla, excetuando N ou BREAK 
SPACE. Se não for, toque uma destas duas. 

Assim, deve-se suprimir a linha 2510. 

(90X07) 

O sistema operacional do TK90X já providencia a impressão de mensagens re¬ 
lativas ao preparo do gravador e aguarda que você o ligue. Assim sendo, suprima as 
linhas 3500 e 3510. 

(90X08) 

O Capitulo 24 do manual do TK90X explica a organização da memória RAM. 
Estude-o com cuidado. 

Para se obter o tamanho do programa BASIC apenas, é necessário fazer 
“VARADD” - “PROGBAS”, ou seja: 

(PEEK 23627 + 256 * PEEK 23628) - (PEEK 23635 4- 256 * PEEK 23636) 

Para se obter o tamanho de PROGRAMA + TELA + VARIÁVEIS, é necessá¬ 
rio fazer “INADD” - 16384, ou seja: 

(PEEK 23641 + 256 * PEEK 23642) - 16384 

Finalmente, para se obter a memória disponível, devemos fazer “RAMTOP” 
- “ADSPFREE”, ou seja: 

(PEEK 23730 + 256 * PEEK 23731) - (PEEK 23653 + 256 * PEEK 23654) 

Logo, esta sub-rotina deve ser digitada assim: 

3000 PRINT AT 5, 5; “MAPA DÁ RAM (EM BYTES)” 

3010 PRINT,, “Tamanho do programa”; TAB 25; PEEK 23627 + 256 * PEEK 
23628 - PEEK 23635 - 256 * PEEK 23636, “(Prog.4* Tela + Variáveis)”; TAB 24; 
“(”; PEEK 23641 + 256 * PEEK 23642 - 16384; “)”, “Disponível”; TAB 25; 


12 


PEEK 23730 + 256 * PEEK 23731 - PEEK 23653 - 256 * PEEK 23654 
3020 RETURN 


(90X09) 

Ver 90X03; suprimir a linha 1000 
(90X10) 

Ver 90X03; suprimir a linha 1140 

(90X11) 

Ver 90X03 

(90X12) 

Ver 90X03; suprimir a linha 4050 
(90X13) 

Ver 90X03; suprimir a linha 4210 
(90X14) 

Ver 90X06; assim sendo a linha 4220 deve ser suprimida 

(90X15) 

Ver 90X03 

(90X16) 

Ver 90X06 

(90X17) 

Ver 90X03; suprimir a linha 2010 
(90X18) 

Ver 90X03; suprimir a linha 2170 
(90X19) 

Ver 90X06; suprimir a linha 2200 
(90X20) 

Ver 90X06; suprimir a linha 2240 
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(90X21) 

Ver 90X06; suprimir a linha 2270 

(90X22) 

Ver 90X06 

(90X23) 

Ver 90X03 

(90X24) 

Ver 90X06 

(90X25) 

Ver 90X03 

(90X26) 

Ver 90X03 

(90X27) 

Embora possível, não há nenhuma vantagem em se utilizar as 24 linhas da tela 
do 90X, graças ao recurso de SCROLL automático que este micro apresenta. 
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COMO USAR ESTE MATERIAL 

Primeiro, dê uma olhada no programa final. Tente entendê-lo. A listagem 
completa do programa está no final deste livro (página 84). 

Com isto, poderá ter uma idéia da utilidade do que propomos. 

Após este aquecimento, comece do início, Procure exercitar tudo que for in¬ 
dicado. Haverá muito o que fazer. Dê a maior atenção possível às observações, e 
mãos à obra! 

PRÉ-REQUISITOS 

Para o aproveitamento desejado deste texto, são necessários os seguintes re¬ 
quisitos: 


HARDWARE — um microcomputador que use a lógica Sinclair, qualquer 

um, com um mínimo de 16K de memória RAM e um gra¬ 
vador. 

SOFTWARE — por parte do leitor, conhecimento elementar de operação 

do microcomputador em questão e da linguagem BASIC. 


PALAVRAS INICIAIS 

Serão vistas algumas técnicas: concatenação, pesquisa em strings e em subs- 
trings, uso de sub-rotinas, economia de memória, cálculo de memória, utilização 
de variáveis do sistema operacional etc. Com isto, além da finalidade-título deste 
trabalho, haverá uma outra, que é a prática de alguns aspectos do BASIC, que nem 
sempre são usados; isto é, haverá chance de o leitor praticar técnicas e comandos 
pouco usados. 

Apesar de ser todo voltado para os microcomputadores da linha Sinclair, a 
idéia é totalmente adaptável a outros micros. 

Este livro originalmente era um artigo para ser publicado numa revista espe¬ 
cializada. Graças ao incentivo de David Anderson, editor da MICROBITS, resolve¬ 
mos ampliá-lo e alcançamos este resultado. 

Bom proveito! 
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OBJETIVO DESTE TRABALHO 


Objetivamos mais o aspecto didático do que o de uso efetivo para aplicações. 
Tentamos transmitir o conceito de BANCO DE DADOS usando como meio um pe¬ 
queno computador. É um trabalho voltado totalmente para iniciantes no assunto, co¬ 
mo o são a maioria dos usuários deste tipo de microcomputador. Na verdade, leva à 
criação de um programa que simula um BANCO DE DADOS on-line, totalmente 
conversacional e monousuário. 

Um outro aspecto que deve ser ressaltado ■ talvez o mais importante — é a 
forma como é conduzido, pois permite ao final da leitura um total domínio por par¬ 
te do leitor sobre o programa apresentado ao seu término, a ponto de serem possí¬ 
veis implementações e alterações por parte do mesmo. Na verdade, implementações 
serão necessárias para que o programa se ajuste às conveniências do leitor. 

O desenvolvimento é todo prático, daí ser necessário o uso concomitante de 
um microcomputador. 

Apesar da restrição citada ao inído deste capítulo, o programa final poderá 
ser usado dentro de suas limitações, isto é, pequenos volumes de dados e uma velo- 
ddade de consultas relativamente lenta. 

Diferentemente dos DBase’s, TK-File’s, ZX- File’ s etc., que existem no mer¬ 
cado para linha Sinclair — excelentes softwares por sinal, mas que são na verdade 
geradores de fichas, o que não tem nada a ver com BANCO DE DADOS - este tra¬ 
balho propordonará ao leitor funções que reladonam dados (cálculo do salário lí¬ 
quido, proventos menos descontos, por exemplo). 

Além de incluir e excluir registros e arquivos individualmente, permitirá lis¬ 
tar dados de apenas um determinado arquivo escolhido pelo interessado, sendo que 
estes dados poderão ter os cabeçalhos que melhor convier. 

Procuramos dar o mais exato possível as idéias de “dado”, “registro”, “arqui¬ 
vo” e BANCO DE DADOS. Na medida do seu desenvolvimento, serão mostradas 
novas possibilidades. 

O leitor verá o programa crescer aos poucos, sendo adaptado, quando for o 
caso, podendo, desta forma, assimilar a idéia do título e não pura e simplesmente 
usá-lo sem ter conhecimento do que se passa. Com isto, poderá servir também co¬ 
mo um modelo de desenvolvimento de programa. E muito comum ter-se o com¬ 
putador e a vontade de fazer um programa, mas não se saber como e nem por onde 
começar. Este será um caminho. É claro que cada idéia, cada programa pode ter vá¬ 
rias formas de execução. Esta é apenas uma delas. 

Serão sugeridas algumas implementações, com a finalidade de permitir ao lei¬ 
tor saber até que ponto está assimilando a idéia. Por outro lado, essas implementa¬ 
ções não foram incluídas no programa final, para possibilitar o cunho didático des¬ 
te trabalho, permitindo ser usado, inclusive, na área de ensino. 

Entendendo-se este objetivo, pode-se ver que seria sem finalidade crescer o 
programa final aumentando o tempo de processamento, apenas para tentar tomá-lo 
perfeito, isto é, mais próximo da idéia real de BANCO DE DADOS. Achamos des¬ 
necessário. Consideramos suficiente o programa final; as implementações ficam a 
gosto do leitor e a título de treinamento. 

Além do objetivo didático, fica mais do que evidente o aspecto prático deste 
trabalho. Poderíamos ter incluído mais teoria de BANCO DE DADOS, ampliando 
bem este material. Mas observamos que mesmo as pessoas que se deliciam com teo- 
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rias e conceitos não prescindem daquela “ferramenta”, daquele lado prático para 
dar inído real a sua satisfação. Somos da opinião de que os “primeiros passos” são 
os mais importantes. Só se deve querer correr quando estes estão firmes. A intenção 
é que estes sejam seus primeiros passos. 

Futuramente, pretendo fazer o equivalente do ZX-DB Sinclair em ASSEM* 
BLY. Toda a lógica empregada aqui no BASIC será a mesma, as grandes diferenças 
ficarão por conta do tamanho do programa, que será bem menor, e de sua veloci¬ 
dade de execução, muitas vezes mais rápida. 

Está aí, inclusive, a sugestão de um bom divertimento para aqueles que gos¬ 
tam de se distrair com um bom passatempo, isto é, o ASSEMBLY do Z80. 

Escolhi este nome, ZX-DB, para o programa básico apresentado ao final 
deste trabalho como uma homenagem aos primeiros microcomputadores desta li¬ 
nha, os ingleses ZX-80 e ZX-81, e ao seu criador. Sir Clive Sinclair, 

COMO SURGE A NECESSIDADE DO BANCO DE DADOS 

Num primeiro momento, surge o DADO: nomes, números etc. 

Depois, surge a necessidade de agrupá-los, organizá-los de acordo com um 
fator comum. Assim: nome do José, endereço do José, telefone do José, CEP do 
José etc. (J osé é o fator comum.) 

Formamos então o “REGISTRO”. Registramos, guardamos, escrevemos os 
dados de acordo com este tipo de fator comum {nome ê o tipo do fator comum) e 
formamos uma “AGENDA de amigos e conhecidos”, por exemplo. 

Temos aí o ARQUIVO, que poderá ter, inclusive, uma organização lógica 
conveniente (em ordem alfabética crescente de nome, de A a Z). 

Com o arquivo, paramos um pouco. Criamos vários arquivos. Passamos a ser 
redundantes. Registramos a mesma informação em vários arquivos, de acordo com a 
organização que dermos. Um por ordem de nome, para quando tivermos o nome e 
quisermos o telefone; outro por ordem de telefone, para quando tivermos o telefo¬ 
ne e quisermos o nome; outro por endereço, para quando quisermos saber quem 
mora próximo do outro; e por aí afora. 

Este é um exemplo fictício, mas que serve para dar a idéia das diversas causas 
que nos levam a criar arquivos redundantes em termos de informação. 

Nas suas necessidades, surge então o DB, DATA BASE, BANCO DE DADOS 
ou ainda BASE DE INFORMAÇÕES, que não passa de uma “reunião de vários ar¬ 
quivos comuns”, tendo-se o cuidado de eliminar o mais possível as redundâncias 
de informações. 

Este “comuns” pode ser apenas o fato de lhe pertencerem, e as informações 
serem bem diferentes e para vários objetivos, 

Você simplesmente quer ter tudo num único lugar. 

A ORGANIZAÇÃO DO BANCO DE DADOS 

A organização do BANCO DE DADOS e o domínio sobre a mesma é funda¬ 
mental para que o mesmo possa lhe dar o que você precisa: incluir, excluir ou alte¬ 
rar informações, que podemos, de uma forma bem simplificada, chamar de “da¬ 
dos”, “registros” e “arquivos”. 

; Nesta organização, deverão ser evitados espaços em branco e redundâncias, 
devendo mesmo ser eliminados para não ocuparem lugar desnecessariamente, visto 
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que espaços são de vital importância, pois deles dependem a capacidade de armazena¬ 
mento, isto é, o tamanho do seu BANCO DE DADOS em termos de quantidade de 
informações que comportará, e também a velocidade de acesso (performance) às 
informações (pois, quanto maior o caminho, mais tempo será gasto pára percorrê- 
lo). 

Considerando os dois parágrafos anteriores, passaremos a detalhar a organiza¬ 
ção escolhida e a mostrar como a mesma foi adaptada aos recursos que dispõem os 
microcomputadores que trabalham com a lógica Sinclair. 

Existem várias estruturas (formas) para os BANCOS DE DADOS; usaremos 
aqui a de “árvore hierárquica”, que nos faz lembrar um organograma de uma orga¬ 
nização militar (Fig, 1). 



1? NÍVEL 


2? NÍVEL 


3? NÍVEL 


Figurai Árvore hierárquica. 


Diremos, a princípio, que o BANCO DE DADOS pode ser visualizado de duas 
formas — a física e a lógica. O desenho da Fig. 1 nos dá uma visão da sua forma ló¬ 
gica, com seus níveis de importância, com o primeiro nível sendo mais importante 
que o segundo, o segundo mais que o terceiro e assim sucessivamente. 

No BANCO DE DADOS, no primeiro nível, podemos ver o próprio BANCO 
DE DADOS, que por comodidade passaremos a designar simplesmente porDB, do 
inglês DATA BASE. No segundo nível, teremos os arquivos. No terceiro nível, os 
registros, e por último os dados. 

Vamos inicialmente estabelecer identificadores para os níveis ou “elementos” 
do DB, 

Para o DB, escolhemos a configuração do “espaço” invertido, pois representa 
o quadrado completo. Para o arquivo, o caráter gráfico gerado pelo pressionamento 
das teclas SHIFT + GRAPHICS e FUNCTION + Q, pois representa um quadrado 
sem o primeiro 1/4. Para o registro, o caráter gráfico gerado pelo pressionamento 
das teclas SHIFT + GRAPHICS e SHIFT + 6, pois representa 1 /2 quadrado. Fi¬ 
nalmente, para o dado, o caráter gráfico gerado pelo pressionamento das teclas 
SHIFT + GRAPHICS e SHIFT + 3, pois representa apenas 1/4 do quadrado. 
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- DB 


Q| - ARQUIVO 

H - REGISTRO 

B - DADO 90X01 


Cada um com o tamanho equivalente ao seu nível de importância. Estando es¬ 
tes identificadores defmidos s podemos começar a geração propriamente dita do DB. 

FORMATAÇÃO ELEMENTAR DO BANCO DE DADOS 

Continuando a conceituação e o domínio sobre a organização do DB, vamos 
começar sua formatação pelo elemento mais simples — “o dado”,. 

Digite o programa que vem logo a seguir. E importante que exercite. 

Após a digitação, execute-o. 

As variáveis e suas finalidades: 

A$ — usada para guardar os dados agrupados 
N — para conter o número de dados que você deseja 
A — indexador para os dados 

D$ — para entrar cada dado. 90X02 

AGRUPANDO DADOS ELEMENTARES 


10 REM t AGRUPANDO DADGS * 

20 LET A$= 11 " 

30 PEINT "QUANTGS DADOS DESEJA AGRUPAR ?" 
40 INPUT N 
50 FOR A=1 TO N 
60 PRINT "DADO 11 ; A;” ?" 

70 INPUT D$ 

80 LET A$“A$+‘'* n +D.$ 

90 NEXT A 
100 PRINT A$ 

110 STOP 


Quando solicitar - “QUANTOS DADOS DESEJA AGRUPAR?”, digite um 
número qualquer. 

Em -seguida solicitará — “DADO 1?”, digite o primeiro dado com o que dese¬ 
jar. Logo a seguir, “DADO 2?”. Isto se repetirá até o total de dados solicitados por 
você. 
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Ao final, após a digitação do ultimo dado, a variável AS será exibida no vídeo. 
Simples, não? 

A forma (dado 1) + (dado 2)... é a mais elementar possível. 

Cabe ressaltar o comando de número 80, que mostra a capacidadè de expan¬ 
são do arquivo A$, Esta é uma das características básicas do DB que vamos criar. 

A seqüênda seguinte ilustra o que dissemos em quatro momentos sucessivos: 


AS - “ ” 


AS 

AS 

AS 


ct 


dado 1 


5Í 


tt 


íi 


dado 1 


dado 2 







Após seu exercício de execução do programa mostrado, digite os seguintes da¬ 
dos: 

« 3 ” . paxa “quantos dados deseja agrupar ?” e “José”, “356-9911”, “RUA 
ALICE NUMERO 39” como primeiro, segundo e terceiro dado, respectivamente. 

Ao final, o programa exibe no vídeo a forma em que os dados ficam agrupados. 
“■ JOSE ■ 356-9911 m RUA ALICE NUMERO 39” 

Esta é a “forma física” do arquivo A$. 

Observe o separador/identificador de dados (■). 

A partir deste “agrupadoí”, desenvolveremos todo o nosso DB. 

Prossigamos com a conceituação. 

Se guardarmos alguma coisa é porque pensamos ou pretendemos fazer uso de¬ 
la futuramente; a isto damos o nome de “recuperação”. 

RECUPERANDO UM DADO 

Vamos recuperar um dado apenas para exibi-lo no vídeo. 

Em continuação ao programa anterior, digite os comandos que se seguem. 

As variáveis e suas finalidades: 

D$ — será usado para conter o dado recuperado 

NUM — para receber o número do dado que se deseja recuperar 

A — indexador para os caracteres 

R$ - para conter o caráter recuperado (serão recuperados um- a- um) 

N — após o dado recuperado, N é usado para se verificar se este é o dado 

solicitado em NUM 

120 REM * RECUPERANDO UM DADO * 

130 LET D$=“" 

140 LET N-0 

150 PRINT “QUAL DADO A RECUPERAR ?'* 
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160 ÍNPUT NUM 

170 FOR A=1 TO LEN A$ 

180 LEI R$=A$ CA) 

190 ÍF R$= n «" THEN GOTO 220 
200 LET DÍ-=D$+R$ 

210 NEXT A 
220 LET N-N+1 

230 IF N-NUM+1 THEN BOTO 260 
240 LET D$~"" 

250 GOTO 210 

260 PRINT "DADO RECUPERADO = ";D$ 

270 GOTO 130 

Crie vários arquivos (GOTO 10) e exercite a recuperação de vários dados co¬ 
mandando GOTO 130 para a recuperação dos mesmos. 

Quando solicita: “QUAL DADO A RECUPERAR?"’, digite o número relativo 
ao dado que deseja separar dos demais. 

Ao final, será exibido - “DADO RECUPERADO - ... (conteúdo de D$)’\ 
Este arquivo (A$) que criamos e do qual recuperamos seus dados é constituí¬ 
do de “dados independentes” ou “registros de um único dado” ou ainda de um úni¬ 
co “registrão”. Não tem maiores utilidades, apenas nos auxiliou na conceituação. 
Vamos organizá-lo melhor. 

A forma física ideal deverá ser: (arquivo 1 (registro 1 (dado 1) (dado 2)... ) 
(registro 2 (dado 1) (dado 2) (arquivo 2 (registro 1 (dado 1) (dado 2) . ..) 

(registro 2 (dado 1) (dado 2) ... .)). 

Ou ainda: 

■ 4ARQUIVO 1 «REGISTRO 1 -DADO 1 «DADO 2 ^REGISTRO 2 . 

DADO 1 . DADO 2.JARQUIVO 2 «REGISTRO 1 .DADO 1 ■ DADO 2 

.. .«REGISTRO 2 .DADO 1 .DADO 2. 

Os três pontos seguidos (. . .) significam que os elementos respectivos conti¬ 
nuam. 

Esta, como dissemos, é a forma física, isto é, é a forma como os dados, regis¬ 
tros e arquivos existem (residem) realmente na memória de seu microcomputador. 
Observe os identificadores de dados (■), registros (■) e arquivos (J)- 
Graficamente, visualmente ou ainda logicamente, podemos ver esta forma de 
arquivo, o DB, como mostra a Fig. 2. 

Esta forma de representação é muito mais visual. 

Ela evidencia os níveis de dependência (o dado é dependente do registro, que 
por sua vez é dependente do arquivo). 

Com esta representação, pode-se ver o que se costuma conceituar como 
“nós”. Cada círculo é um nó, e possui o dado. O que está acima é chamado de 
“pai” dos que estão abaixo. Os que estão abaixo são chamados de “filhos”. Assim, 
podemos dizer que os registros são os “filhos” do arquivo e os dados “filhos” do 
registro. Os arquivos, como são os primeiros de cima para baixo, são também cha¬ 
mados de “raiz”. É onde se inicia o “ramo” da árvore. 
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- OB 



- ARQUIVOS 


REGISTROS 


- DADOS 


Figura 2 Forma lógica genérica. 


Esta forma de representar o DB é apenas para facilitar a nossa compreensão, 
na verdade ela não existe fisicamente. 

A forma física, nós já vimos. Nela os dados são enfileirados um depois do ou¬ 
tro num “string” contínuo, no qual seus elementos (dados, registros e arquivos) são 

separados por símbolos que os identificam. 

Estes separadores/identificadores (passaremos a chamar apenas de identifica¬ 
dores) servirão, como no comando 190, para se chegar ao elemento desejado. No 
comando 190, o identificador é usado para se chegar ao dado. Como deve ser nota¬ 
do, o primeiro identificado ré anulado, quando é somada uma unidade à variável nu¬ 
mérica NUM, no comando 230. Desta forma, o primeiro dado só será encontrado e 
colocado na variável D $, quando o segundo identificador for encontrado. 

A segunda parte deste programa, que chamamos RECUPERANDO UM DA¬ 
DO, mostra de modo simplificado a técnica que usaremos mais adiante, para chegar¬ 
mos aos registros e arquivos. 

O programa visto até agora nos foi útil para fixarmos certos conceitos e téc¬ 
nicas, que usaremos no programa principal. Aqui termina sua finalidade. 

A partir do próximo capítulo, iniciaremos o estudo passo a passo do progra¬ 
ma final, o qual nos levará a firmar a noção do que vem a ser, como se manipula e 

como funciona um DB. 

Serão criadas e definidas sete funções, sendo: 
três principais 

— Criar Arquivos 

— Eliminar Arquivos/Registros 

— Listar Arquivo (no vídeo) 
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três auxiliares 


- PRINTdoDB 
— Memória Disponível 
— Salvar o ZX-DB 

e uma específica 

— Cálculo do Salário Líquido 

Nada impedirá, porém, que o leitor crie outras funções. Por exemplo: listar o 
DB (no papel), muito útil para quem tem impressora. Será muito simples adaptar a 
terceira (Listar Arquivo no vídeo), apenas usando LPRINT no lugar do PRINT. 

Este é apenas um exemplo, muitas outras funções poderão ser criadas. 

Vamos então ao ZX-DB! 
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O ZX-DB 


COMEÇANDO A DEST RINCHAR O ZX-DR 

Como nosso objetivo final é o DB, passaremos, a partir de agora, a designar o 
programa final apenas por ZX-DB. 

CRIAR ARQUIVOS 

Começaremos pela função “Criar Arquivos”, uma das sete já mencionadas. 
Escolhemos esta por uma questão óbvia — não poderemos manipular dados, 
registros ou arquivos, antes de criá-los! 

As seguintes orientações preliminares são necessárias; 

1 — Comande, antes da primeira execução do programa (apenas da primeira) 

LET WS = “■” 


2 — Após o comando acima, não use mais o comando RUN. 
Em seu lugar, use 


GOTO 100. 

Pois, como se sabe, o RUN apagaria todas as variáveis; no caso, apagaria 
inclusive WS. 

Para total compreensão desta função, aqui estão as definições das variáveis 
usadas: 

WS — será o nosso arquivo principal, o próprio DB 
NS — para entrada dos nomes dos arquivos 
R — para o número de registros de cada arquivo 
D — para o número de dados de cada registro 
A — para indexador de dado 
B — para indexador de registro 
D$ — para entrada dos dados 
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Lembro aqui que não há limite para o tamanho dos nomes dos arquivos ou 
para o tamanho dos dados. O limite fica por conta do tamanho do vídeo. Isto é 
muito confortável, pois permite usar nomes bem significativos e que nos facilitem 
lembrar suas finalidades. Uma orientação, porém, $e faz necessária - não se deve 
abusar disto, usando-se nomes muito grandes — isto implicará uma demora maior 
na pesquisa para se localizar o nome desejado. O bom senso é o melhor guia. 

Limpe a memória RAM de seu microcomputador, usando o comando NEW, 
pois iniciaremos um novo programa. 

É proveitoso e didático que se digite os comandos do programa aqui apresen¬ 
tado. Por isto, sempre é indicada esta opção. Isto leva a uma maior assimilação. Soli¬ 
difica o domínio sobre o programa. 

Os comandos que vêm a seguir fazem parte do programa DB, portanto, deve 
ser mantida a numeração usada nos comandos pois a mesma será referenciada em 
outras partes do programa. 

Digite os comandos a seguir: 


500 FRINT " CRIANDO ARQUIVO" 


510 PR INI 1 1 "QUAL □ NOME ?" 
520 INRUT N$ 

530 LET W$=W3+"* !, +N$-t , ‘« M 


540 FRINT "QUANTOS REGISTROS 
550 INPUT R 



FRINT 


ii 


QUANTOS DADO 


r-- 

■.j 



570 INPUT D 
580 CL5 
580 FRINT N$ 

600 FOR B-l TO R 
610 FOR A=1 TD D 
620 FRINT "DADO "jB; 11 . 
630 INPUT 


A * it li 
n y •*' 


II 


640 FRINT D+- 

650 LET W$=W$+D*+"«" 

660 NEXI A 

670 LET W$=W$ < TO LEN Wí-D + W 
680 NEXT B 

690 LET W$-W$í TO LEN W$~l) 


Esta parte do programa pode ser executada como um programa completo, 
mas lembre-se: não use RUN! Use GOTO 500. 

Devem surgir as seguintes informações no vídeo da TV: 
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CRIANDO ARQUIVO 


QUAL O NOME ? 




Digite — “CADASTRO” 

Não será verificada a existência de arquivos com o mesmo nome, visto que is¬ 
to permite a criação de mais de um com o mesmo nome. Consequentemente, quan¬ 
do for acessá-lo, o primeiro encontrado é que será processado. 


Tome cuidado! , , , 

Evite usar nomes parecidos, pois podem confundir e leva-lo a criar nomes 

iguais No caso de dúvida, use o comando PRINT W$ para ver os nomes já criados 
Aqui vai a primeira sugestão para implementações - ene outro arquivo do ri¬ 
po WS para conter os nomes de arquivos. Será o “diretório” Logo apos entrarcom 
um novo nome, faça uma pesquisa neste diretório para verificar se já «arte algum 
com este nome. Caso exista, indique o fato como erro - NOME JA EXISTEN f E . 
Caso contrário, aceite o nome e inclua-o no “diretório”. Mas deixe isto para mais 

tarde, no terceiro capítulo — PRATICA. 
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Digite - “3” 

Nova solicitação . . . 



Digite - “3” 

Nova solicitação ... 

Significa que teremos três registros com três dados cada. 
Nova solicitação . .. 
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O “1.1” que aparece na tela significa “dado 1 do registro 1”. 
Digite - “JOSE” 

Nova solicitação — pede agora o segundo dado do registro .. . 





Digite — “100000” 

E temos a solicitação do terceiro dado do primeiro registro . 
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Digite-" 15 000 ” 

Surge agora "2.1” — significando “dado 1 do registro 2”. Vai assim até "3.3”, 
que será o último dado do último registro. 

Digite então os seguintes dados: 


2.1 - “ANTONIO” 

2.2 - "2 00000 ” 

2.3 - “30000” 

3.1 - “JOAO” 

3.2 - “ismr 

3.3 - “\mr 


Teremos então um exemplo completo de um arquivo chamado “CADASTRO” 
com três registros apenas, tendo cada um deles três dados. 

Vamos convencionar chamar os dados de “nome”, ‘ proventos e descon¬ 
tos”, como segue: 


NOME PROVENTOS DESCONTOS 


jose 100000 i sm 

ANTONIO 200000 30000 

JOAO 150000 10000 


Após execução, comande: 

PRINT W $ 

Surgirá a seguinte visão ... conforme a tela a seguir: 
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Em vez desta numeração (1.1, 1.2 etc.), poderia ter sido incluída uma sub-ro- 
tina em que fossem pedidos, além do nome do arquivo, os nomes dos dados. Quan¬ 
do fosse feita a “entrada” de dados, uma outra sub-rotina “recuperaria” estes no¬ 
mes e os colocaria no vídeo, à medida que os mesmos fossem sendo Solicitados. Tal 
não foi feito apenas por medida de economia. 

Esta pode ser mais uma de suas implementações. Experimente! 

Crie vários arquivos, com quantidade e tamanhos de registros e dados diferen¬ 
tes. 

O comando anterior mostrou a forma física do DB. O ideal é que se execute 
várias vezes, quando então se poderá observar o conjunto de arquivos. A forma lógi¬ 
ca fica sendo como mostra a Fig. 3, conforme tela seguinte. 



Figura 3 Forma lógica específica. 
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Especial atenção deve ser dada aos comandos 530, 650 e 670. Estes comandos 
mostram o que já foi dito no capitulo inicial — a característica básica do DB é a 

possibilidade de expansão, através da capacidade de “concatenação” do BASIC. 

A cada novo arquivo, o comando 530 agrupa o identificador Jt, o nome do 
arquivo e o identificador para o primeiro registro do arquivo (h). 

Os dados são agrupados através do comando 650, como no primeiro programa 
usado. 

Ao final de cada conjunto de dados, o comando 670 agrega o identificador do 
próximo registro. 

Conforme foi visto, não foi usado o comando DIM do BASIC, como seria de 
esperar nestes casos. 

Como sabemos, o comando DIM cria a matriz. Nos microcomputadores que 
estamos usando, este comando normalmente é usado para definir pseudo-arquivos, 
onde o número de ocorrências seria o número de registros e o tamanho (segundo 
elemento), o tamanho do registro, como no exemplo: 


DIM AS (100, 80) ... 
define 100 registros de tamanho 80. 

As desvantagens das matrizes, arrays ou arranjos, como são chamados, é que 
fixam um mesmo tamanho tanto para registros como para o arquivo como um todo. 

A “concatenação”, expandindo uma variável, é bem mais interessante porque 
permite que dados e arquivos sejam de tamanho variável e sem perda de bytes, gas¬ 
tos com caracteres em branco, como seria no array. 

Aproveitando esta primeira rotina que destrinchamos, base das demais, apro¬ 
veito para indicar o seguinte procedimento: sempre que ficar algum ponto obscuro 
na apresentação de qualquer uma das rotinas, releia e revise os comandos, até diri¬ 
mir qualquer que seja a dúvida, por menor que seja, antes de passar para o próximo 
item. 


AS OPÇÕES 

Agora que já temos os arquivos criados, vamos formar o menu de opções ou 
de funções, como seria mais correto dizer. 

As funções já foram anunciadas no capítulo anterior, vamos apenas escrevê- 
las no vídeo e prever os desvios para a execução de cada uma delas. 

As variáveis usadas são: 

K$ — para receber a opção desejada 

I — para indicar início de pesquisa do DB 

INI — para guardar a posição inicial de um arquivo dentro do DB 

Como não há maiores esclarecimentos a serem feitos, vamos aos comandos: 
Digite os comandos a seguir, junto com os anteriores. 

100 CLS 

110 SLOW 90X03 

120 PRINT AT 5,9;"QPCOES",, f , 

' " FUNCOES PRINCIPAIS" 

130 PR INT M "1 ” CRI AR ARQUI VO ", 
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"2 - DELETAR ARQUIVO /REGISTRO", 

"3 - BSEM FUNÇÃO DEFINIDA”,"4 - 
LISTAR ARQUIVO" 

140 PRINT f , " FUNCOES AUXILIARES " f ,, 

"5 - PRINT DO DB",,"S - MEMÓRIA DISPONÍVEL"? 

"7 - SALVAR ZX~ 

DB" t "8 - SALARIO LIQUIDO (ESPECIFICA" 

150 LET K$=INKEY$ 

160 IF K$<"1" OR K$ >"B" THEN GOTO 150 
170 LET 1=1 
180 LET IWI = I 
190 CLS 

200 GGSUB VAL K**50Q 

210 PAUSE 4E4 9^X04 

220 GOTO 100 


Após a digitação, comande GOTO 100. Surgem então as opções, como mos¬ 
trado na Fig. 4. 


GPCOES 


FUNCOES PRINCIPAIS 


- CRIAR ARQUIVO 

- DELETAR ARQUIVO/REGISTRO 

- 1BEM FUNCAQ DEFINIDA 

- LISTAR ARQUIVO 

FUNCOES AUXILIARES 



PRINT DO DB 
MENORIA DISPONIVEL 

SALVAR ZX-DB 

□ALARIü LIQUIDO (ESPECIFICA 


Figura 4 Tela de opções. 
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Por enquanto só podemos usar a opção “1”; não esqueça, porém, de incluir: 
700 RETURN 






Observe que, após a execução de cada opção, é necessário tocar em alguma te 
cia, para que o programa volte ao menu de opções. Isto é propiciado pelo comando 
21 que cria uma “pausa” teoricamente interminável, isto é, paralisa o programa, 
após terminar a rotina, até que se pressione alguma tecla. 

A FUNÇÃO MAIS SIMPLES 

“PR1NT DO DB” nada mais é que fixar no programa o que foi indicado que 

fizesse — PR1NT W S 

Acrescente os seguintes comandos; 

2500 PRINT ,l PRINT DO 90X05 

2510 PRINT CCASQ ENCHA A TELA r 

DIGITE" t r " CONT ",,"NEWLINE)" 90X06 

2520 PRINT ,,W$ 

2530 RETURN 

Com esta, já são duas opções que podem ser solicitadas pela tela de ações. 

Esta é uma função auxiliar pois, simplesmente, evita que se fique a todo mo¬ 
mento digitando o comando PRINT. Pressione simplesmente 5 e terá então a vi¬ 
são física de todo o DB criado até aqui. 

Convém lembrar que se a variável WS, ou seja, o DB, for maior que a capaci¬ 
dade da tela, aparecerá o erro 5 no canto inferior da tela, indicando tela cheia. Nes¬ 
te caso, comande CONT e em seguida NEWLINE. 

Se digitar a opção “5”, surgirá a seguinte tela: 



SALVAR O PROGRAMA ZX-DB 

Continuando com as funções auxiliares, vamos implementar o SAVE através 
da tela de opções. 
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Quando se comanda SAVE no microcomputador, obtém-se uma cópia do que 
se está fazendo. A isto se dá o nome de “backup”, ou seja, uma cópia de segurança, 
caso falte a luz, por exemplo, ou se, por alguma razão, o micro sair do ar. Por isto, 
à medida que se atualiza o DB, gravando coisas novas ou alterando, é bom que se 
faça um “backup” pressionando “7 ”, 

Deve-se proceder assim, sempre que se desejar guardar o que foi digitado, 
para uso futuro. 

Acrescente os comandos: 


3500 PRINT , y "LIGUE 0 
,,"PRESSIONE QUALQUER 

3510 PAUSE 4E4 


GRAVADOR", 
TECLA" 


OU 



SAVE " 



O s { 

vJ ü ' 


) üü } u 



(9pX(97) 


Se digitar a opção “7”, terá a seguinte tela: 



A PAUSE do comando 3510 permite a preparação do gravador antes do co¬ 
mando SAVE propriamente dito. 

MEMÓRIA DISPONÍVEL 

Concluindo as funções auxiliares, abordamos esta que é importante pelo fato 
de nos permitir visualizar quanto se tem ainda de memória RAM disponível. Assim, 
podemos prever algum futuro aumento. 

Esta opção nos mostra três informações: 

— Tamanho do Programa 
— (Programa 4- Tela + Variáveis) 

— Memória Disponível 


34 






Como será possível ao leitor acrescentar ou eliminar funções ao programa no 
final desta leitura, incluímos a primeira informação, “Tamanho do Programa”, de 
modo que o mesmo possa perceber de quanto aumentou ou diminuiu o programa, 
independente das variáveis e dos bytes ocupados pela tela. A segunda, como está 
claro, dá o total ocupado até o momento, e a última é que realmente informa os 
bytes ainda disponíveis a futuras expansões. (90X08) 

Acrescente: 


3000 PR INI AT 5 j 5; 11 MAPA DA RAM CEM BYTES) 11 
3010 PRINT , f '“TAMANHO Dü PROGRAMA"*TAB 25; 
PEEK 16396+256*PEÉK 16397-16509» 

" (PROG. +TELA+-VARIAVEIS) " ; TAB 24; 


" C 11 ; PEEK 1 6404+256*PEEK í 6405-16384 


II v ii 


"DISPONÍVEL";TAB 25;(PEEK 16386+2564PEEK 16387 
)- (PEEK 16412+256#FEEK 16413) 


3020 RETURN 


Pressionando “6” na tela de opões, deverá surgir a seguinte tela: 



OBS. - Os números não correspondem à realidade, são puros exemplos. 

Vimos aqui o uso de variáveis do sistema operacional, residente no microcom¬ 
putador. 


NÜMERO DOS BYTES 

16384 

16509 

16396/16397 

16404/16405 


VARIÁVEL 

— início da memória RAM 

— início do programa 

— início da área de vídeo 

- início da linha de edição, isto é, fim de toda 
memória contínua, ocupada pelo seu progra¬ 
ma, vídeo e variáveis. 
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NÜMERO DOS BYTES VARIÁVEL 

16386/1Ó387 — início da pilha de endereços dos GOSUB’s , 

isto é, final da área de memória RAM utilizada 
normal mente pelo programa. Após, somente 
RAMTOP, que no caso não é alterada. 

16412/16413 - início da área livre da RAM (Veja Fig. 5) 

Então, com estas variáveis, podemos calcular: 

Tamanho do Programa — é só subtrair o início do programa (16509) do início 
da área de vídeo (número contido nos bytes 16396 e 16397), como mostrado no 
comando 3010; 

j Programa/Tela/Variáveis — é só subtrair o inído da memória RAM (16384) 
do último byte que seu programa fez uso (número contido nos bytes 16404 e 
16405); 

Memória Realmente Disponível — subtrai-se o início da área livre da RAM 
(bytes 16412 e 16413) da última variável da RAM, que é a pilha de endereços dos 
GOSUB’s (bytes 16386 e 16387). 


d 16384 16509 ? ? ? ? 


I I 1 I 111 



(1 n fdo 
RAM! 
Variáveis 
do 

sistema 






ROM 

Seu 

programa 

(ZX-DB) 

Área 

de 

vídeo 

Suas 

variáveis 

Linha 

de 

edição 

Memória 

RAM 

disponível 

Pilha 

de 

GOSUB's 



* 





RAMTOP 


Figura 5 Mapa da memória. 


As interrogaçOes (?) da Fig. 5 significam que estes endereços iniciais serão cal¬ 
culados, sempre que se pedir esta opção, segundo o comando 3010, 

SUB-ROTINAS 

Agora vamos falar sobre as sub-rotinas. 

Como você deve saber, o uso de sub-rotinas, através dos comandos GOSUB e 
RETURN, evita que se repitam desnecessariamente conjuntos de comandos, dimi¬ 
nuindo com isto o tamanho final do programa, poupando, conseqüentemente, pre¬ 
ciosos bytes da memória RAM. 

Elas serão apresentadas em três módulos: 

— Diferenciando Arquivo de Registro 
— Chegando ao Início dos Arquivos e Registros 
— Acesso aos Arquivos e Registros 
— Recuperação de Dados 

Vá digitando à medida que forem apresentadas. 
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DIFERENCIANDO ARQUIVOS DE REGISTROS 

Para eliminar arquivo ou registro, será necessário chegar a este arquivo ou re 
gistro específico, com procedimentos iguais, para ambos. Por isto, usaremos a mes 
ma sub-rotina. A diferença será exercida através das variáveis XS e Y$. 

Quando a pesquisa for de arquivo, as variáveis terão os seguintes conteúdos. 

XS = “d” 

YS = “D” 

Quando a pesquisa for de registro: 

XS = “H” 

Y$ = “Q” 

Para isto, foram criados os comandos: 

9500 LET 

9510 LET Y$= , W' 

9520 RETUR.N 
9530 LET X$="»'' 

9540 LET 
9550 RETURN 

Apesar de serem os últimos, já podem ser digitados. 

CHEGANDO AO INICIO DO ARQUIVO OU REGISTRO, ACESSÁ-LO 

9000 REM 4 SUB-ROTINAS % 

9010 REM CHEGAR INICIÜ ARQ/REG 

9020 FGR A=I TO LEN 

9030 LET R$=W$(A) 

9035 IF R$= "dl" THEN LET INI=A 

9040 IF R$=X$ THEN GOTO 9100 

9050 NEXT A 

9060 PRINT N$; " NAQ EXISTE 11 
9080 RETURN 

9090 REM ACESSAR ARQ/REG 
9100 LET D$=" " 

9110 FGR B=A+1 TO LEN 14$ 

9120 LET R$=W$(B) 

9130 IF R$=Y$ ÜR R$-X$ OR R$="J" THEN GOTO 9160 

9140 LET D$=D$+R$ 

9150 NEXT B 

9160 IF D$=N$ THEN GOTO 9210 
9170 LET A=B 
9180 LET D$="" 


9190 IF B<LEN W$ THEN GOTO 9ISO 

9195 LET j>B-l 

9200 GOTO 9050 

9210 LET 06 

9220 RETURN 


Vamos identificar as duas etapas: 

— Chegar ao início dos arquivos/registros 

— Acessar os arquivos/registros 

A primeira vai dos comandos 9010 ao 9080. Consiste em encontrar um iden¬ 
tificador de arquivo ou de registro, dependendo do conteúdo da variável XS, con¬ 
forme mostra o comando 9040. Encontrado o identificador, o programa desvia en¬ 
tão para 9100, segunda etapa, onde “recupera” então, na variável DS, o nome do 
arquivo ou o primeiro dado do registro, que passaremos a chamar de “chave” do re¬ 
gistro. Esta segunda parte vai de 9090 a 9220. 

Se o nome, ou chave, não corresponder ao que se procura, o indexador A é 
atualizado com o valor de .B, a variável D$ é esvaziada e, se o final do DB não tiver 
sido atingido, o programa volta para procurar outro arquivo ou chave, conforme 
mostram os comandos de 9160 a 9200. 

A variável N$ contém o nome do arquivo ou chave. 

Caso o nome tenha sido informado errado ou não exista, o comando 9060 in¬ 
dicará. Caso contrário, isto é, o arquivo ou chave seja encontrado e, se a pesquisa 
for de arquivo, a variável C receberá o valor de B, conforme comando de número 
9210. 


RECUPERANDO DADOS 

Completando as sub-rotinas, veremos agora como recuperar os dados indivi¬ 
dualmente: 


9 3 CU 


RECUPERAR 


DADÜ3 


qo 


9320 

9330 

934*0 

9350 

9360 

9360 

üOül'1 

J _■ v_í 

9400 

9410 

9420 


GOBUB 9530 
LET B=C 
LET F$="" 

FüR OB* 1 TO LEN W$ 

LET R$=W$ÇC) 

IF R$~Y$ OR R$--~X$ THEN GOTO 94 

IF R$="4" THEN GOTO 9410 

LET P$=P*+RÍ 

NEXT C 

LET FIMARQ=1 

RETURN 



Usamos a variável PS para conter o dado recuperado. 

Esta sub-rotina sempre é solicitada após localização do arquivo ou registro. 
A variável C funciona como o indexador, daí o comando 9340 pegar uma posição 
além do conteúdo do indexador B, o qual tem o início do arquivo. 
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Se um novo dado é iniciado, o programa retoma para onde veio; se for fim do 
registro, a pesquisa continua. 

Se é o fim do arquivo, a variável FIMARQ é preenchida com “1”, conforme 
mostram os comandos de 9360 a 9420. 

Agora, estamos aptos a implementar as outras funções. 

Já podemos criar arquivos, vamos agora eliminar : arquivos, pelo seu “nome”, 
e registro pela sua “chave”. 

Este item não terá teste, pois ele é dependente dos seguintes, isto é, estas sub- 
rotinas são solicitadas pelo programa nos próximos itens. 

ELIMINANDO ARQUIVOS E REGISTROS 

“Deletar” é uma forma aportuguesada do verbo inglês “to dele te”, que pode 
ser traduzido como eliminar ou cancelar, daí a função “2 — Deletar Arquivo/Regis¬ 
tro”. 

Para isto, será necessário informar pela variável K$ se vai deletar A para ar¬ 
quivo, ou R para registro. Conforme o caso, pedir nome do arquivo ou chave do 
registro. Ainda, automaticamente conforme o caso, serão preenchidas as variáveis 
X$ diferenciando arquivos de registros. 

O elemento sendo encontrado, a variável D$ será igual a N$. Na variável A 
está o início do elemento. A rotina principal busca então o início do próximo ele¬ 
mento. Ele estará em C. Então, o comando 1210 elimina o pedaço indesejável, co¬ 
mo na Fig. 6. 



— Antes 


— Depois 


Fjgura 6 Eliminando arquivo ou registro. 


Digite: 


1000 SLÜW 

1010 PRINT 11 DELETAR..." 

1020 PRINT ,, "ARQUIV0 ? ,l ,, "REGIGTRQ 
1030 IF INKEYÍ-"" THEN G0T0 1030 
1040 IF INKEY$="A" THEN G0T0 1070 


"i 11 


(90X09) 
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1050 IF INKEY$="R" THEN GOTO 1100 

1060 GOTO 1030 

1070 GOSUB 9500 

1080 FRINT "NOME ARQUIVO ?" 

1090 GOTO 1120 

1100 GOSUB 9530 

1110 PRINT "CHAVE REGISTRO ?" 

1120 INPUT m 
1130 PRINT m 

1140 FAST (90X1 0) 

1150 GOSUB 9000 

1160 IF N$OD$ THEN RETURN 

1170 FOR C-B-l TO LEN 

1180 LET R$=U$(C) 

1190 IF R$=X* OR R$="J" THEN GOTO 1210 
1200 NEXT C 

1210 LET W$=W$Í TO A~1)+W$(C TG ) 

1220 PRINT "DELETADO" 

1230 RETURN 


Com a execução desta opção, surgirá a seguinte tela ... 



REGISTRO 




Digite: A - para arquivo 
R — para registro 
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Escolhendo “R”, teremos a tela seguinte . 


* * 



Digite “JO AO” e terá . .. 



A partir deste ponto, a teia ficará toda branca pois estará na modalidade 
FAST, que permitirá uma velocidade maior de pesquisa (cerca de quatro vezes mais 
rápida que SLOW). (90X11) 
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O que estaiá acontecendo será uma pesquisa byte-a-byte do DB, conforme 
mostram os comandos 9020 a 9050, 9110 a 9150 e de 9320 a 9380. 

Do modo como esta função foi criada, na primeira coincidência, isto é, quan¬ 
do o nome do arquivo ou da chave for encontrado, a pesquisa é encerrada e o ele¬ 
mento é eliminado ( arquivo ou registro). 

Caso tenha no mesmo arquivo ou em arquivos diferentes a mesma “chave”, 
esta função eliminará o primeiro registro encontrado com esta chave. Este fato pode 
ser evitado, tendo-se o cuidado, na criação dos arquivos e registros, de se consultar 
os arquivos existentes, listando-os. Nos grandes computadores isto não ocorre, por¬ 
que nestes as chaves em caso algum podem ser duplicadas. 

O tempo de pesquisa variará de acordo com o tamanho do DB e de onde se 
encontra o elemento pesquisado. Não se preocupe então, caso a tela fique branca 
por mais tempo que o normal. Se achar que a pesquisa está demorando demais e 
que o programa esteja num LOOP interminável, pressione BREAK e depois CONT. 
No BREAK, poderá observar por que comando estava passando. Um PRINT das va¬ 
riáveis A, B e C, dependendo do comando indicado no BREAK, indicará em que 
ponto do DB está a pesquisa. Ao final surgirá a tela, conforme folha seguinte. 

Caso deseje confirmar a “deleção”, comande o PRiNT do DB, pressionando 
a opção “5”. O registro .. . 

tm JOAO *150000 *10000, deverá ter sumido. 

Para deletar o arquivo, deverá digitar o nome do arquivo, e a partir daí tudo ocorre¬ 
rá de modo semelhante. 

Pratique! Experimente! Crie arquivos e registros. 

Para deletar um arquivo — digite CADASTRO 



REGISTRO ? 

NOME ARQUIVO ? 
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Deverá surgir. .. 



UMA FUNÇÃO BEM ESPECIFICA 

d» 

Para usar a sub-rotina que recupera um dado, criamos a função “SALARIO 
LÍQUIDO”. 

Claro que, para execução desta função, será necessário um arquivo semelhan¬ 
te ao definido no capítulo “CRIAR ARQUIVO”, onde temos: 

— nome 

— proventos 

— descontos 

Na verdade, ela é apenas um exemplo de como manipular dados separadamen¬ 
te. Tendo-a como exemplo, criam-se várias outras. Ela inclusive poderá ser elimi¬ 
nada, caso não seja de seu interesse, mas observe-a para ver como as fases se proces¬ 
sam. 


4000 

LET 1 = 

= 1 


4010 

PR INT 

"CALCULANDO SALARIO" 

4020 

PRINT 

" ARQUIVO ?" 

4030 

INPUT 

N$ 


4040 

PRINT 

N$ 


4 í 

i V_ J uj *-■ 

FA3T 



4060 

GOSUB 

O 

■_ J V -J 


4070 

GOSUB 

9000 


40 SO 

IF D$v 

:* >N$ THEN 

RETURN 

4090 

GOSUB 

9530 


4'J. 00 

PRINT 

"DIGITE 

NOME (CHAVE) 


(90X12) 
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4110 LET I~INI 
4120 INPUT m 

4130 PR INT ? , " NOME " f " SAL AR 10 ,l 
4140 PRINT m, 

415o üGSUB 9000 

4160 IF D$< >N$ THEN RETURN 

4170 GQSUB 9300 

4180 LET D$=F$ 


4190 GOSUB 9300 

4200 PRINT VAL D$-VAL P$ 

4210 SLOW 



IF FEEK 1644246 THEN CLS 


4230 PRINI ,," OUTRG ? ( 5/N>“ 

4240 IF INKEY$= ,I S" THEN GOTO 4100 
4250 ÍF INKEY$=" " THEN GOTO 4240 


4260 RETURN 


(90X13) 

(90X14) 


Variáveis e suas finalidades: 

í — inicialmente, conterá o início do DB. Após localizar o arquivo deseja¬ 
do, conterá o início deste. 

NS — inicialmente, o nome do arquivo, depois a chave do registro, isto é, 
o nome. 

D$ — proventos. 

PS — é usada para conter o dado recuperado até passá-lo para a variável fi¬ 
nal. Como não há mais que dois dados a recuperar, o segundo fica na 
própria variável PS (é o desconto). 

Executando a opção “8”, a primeira tela a surgir será: 
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Digite - CADASTRO 

A pesquisa começará, a tela ficará branca por um tempo, por causa do FAST 

(90X15) 



Isto, se você criou o arquivo em CRIAR ARQUIVO, se não, exibirá — “NÃO 
EXISTE”. 

Para a chave, digite - “ANTONIO” ou “JOSE” (lembre-se de que JOAOfoi 
deletado). 



Se digitar “S”, será pedido outro nome (chave); pode, inclusive, ser o mesmo. 
Podem ser solicitados fora de ordem. A variável I cuida para que sempre que se co¬ 
meçar nova pesquisa ela contenha o início do arquivo. 

Observe que no comando 4060, é executada a sub -rotina que prepara as va¬ 
riáveis XS e Y$ para recuperar o nome do arquivo. Em seguida, a sub- rotina que 
recupera arquivo é solicitada no comando 4070. 


45 









Na pesquisa da chave, comandos de 4090 a 4120, é solicitada a sub-rotina 
que prepara as variáveis XS e YS para recuperar a chave do registro, isto é, o nome 
sugerido. Em seguida, a sub-rotina que recupera registro é solicitada no comando 
4150 (observe que é a mesma para ARQUIVO e REGISTRO). 

Como no comando 4080, o comando 4160 verifica se o elemento pesquisado 
foi encontrado. Se não, o comando RETURN faz com que o processamento retome 
à tela de “opções”. Caso contrário, começa a “recuperação dos dados” propriamen¬ 
te dita com GOSUB 9300 do comando 4170. 

Recupera proventos e o coloca em D$. Retorna à sub-rotina. Recupera o se¬ 
gundo dado (descontos) em PS. 

O salário líquido é calculado. Será a diferença entre D$ (proventos) menos 
PS (descontos). É exibido no vídeo, à frente do nome respectivo. 

Neste ponto, é usada mais uma variável do sistema. É aposição 16442 da me¬ 
mória RAM. Ela contém o número de linhas que ainda faltam para completar a te¬ 
la. Tem início com 23 e chega a zero. Com o comando 4220, sempre que a tela esti¬ 
ver para ser completada, antes do erro “5” (tela cheia), ocorre um CLS (limpeza de 
tela) automático, evitando, desta forma, uma parada indesejada. (90X16) 

Além do uso desta variável, outro detalhe cabe ser observado nesta parte do 
programa. É a idéia de “estruturação”, que se pode notar quando se solicita seis ve¬ 
zes a participação de sub-rotinas. Isto foi possível graças à fórma em que o progra¬ 
ma foi escrito, isto é, 

- Um menu de opões 

— Quatro rotinas e 

— Sete sub-rotinas 

A sub-rotina pressupõe sua utilização repetidas vezes, como foi o caso nesta 
rotina para cálculo do “salário líquido” e outras rotinas, como, por exemplo, 
“ACESSO AO DADO” é utilizada pelas rotinas de DELETAR, LISTARe estaque 
acabamos de ver. Aqui no exemplo, algumas são acessadas direto pelo menu de 
opções, como o SAVE, PRINT do DB e Memória DISPONÍVEL. Há o caso também 
da rotina “CRIAR ARQUIVOS”, que não usa sub-rotina nenhuma (Fig. 7). 



Menu 


Rotinas 


— Sub^rotinss 


Figura 7 Estrutura geral do programa. 
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LISTAR ARQUIVO 

Esta será a última rotina que veremos juntos e que já faz parte do ZX-DB. Va¬ 
mos então à sequência de comandos: 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2130 
2200 
2210 
2220 
i!. J-. ■— 1 - 

2240 

2250 

2260 

2270 

2280 

2230 


PRINT “LISTAR ARQUIVO ?" 
FA3T 

GDSUB 3500 
LET FIMARQfO 

input m 

PRINT N$ 

GOSUB 3000 

IF D$ON$ THEN RETURN 

PRINT “DADOS POR REGISTRO ? 

INPUT N 

PRINT N 

DIM T$CIM, 10) 

PRINT “TÍTULOS DOS DADOS ? 
FOR A-l TO N 
INPUT T$(A) 

NEXT A 

PRINT 

SLOW 

FOR A=i TO N 
GOSUB 3300 

IF PEEK 1644244 THEN SCROLL 
PRINT T$ (A); ; P$ 

IF FIMARO-1 THEN GOTO 2270 
NEXT A 

IF PEEK 1644244 THEN SCROLL 
PR INT 
GOTO 2180 
SCROLL 

PR I NT 11 FIM " 

RETURN 


(TAMANHO 10) 


(90X17) 


(90X18) 


(90X19) 


(90X20) 


(90X21) 


As variáveis e suas finalidades: 

FIMARQ — conterá 1 se for atingido o final do arquivo. Caso contrário, con¬ 
terá zero. 

NS — conterá o nome do arquivo a ser PRINT. 

N — conterá o número de dados por registro. Caso você crie o “di¬ 

retório” sugerido, este dado pode constar do registro que con¬ 
tém o nome do arquivo, não sendo necessário solicitá-lo. 
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TS — conterá os nomes dos dados, os quais serio “encontrados” no 

comando 2110 e poderio ter tamanho máximo de 10 caracteres. 
A - indexador para os títulos dos dados. 

PS - conterá os dados recuperados (um por vez). 

Mais uma vez, é usada aqui a variável “número da linha do vídeo”, posição 

16442. (90X22) 

A execução desta opção mostra; 



Digite — CADASTRO e será solicitado: 
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Digite para o caso — “3” 



Digite a sequência - “NOME’, “PROVENTOS” e “DESCONTOS”. NSo se¬ 
rão exibidos, serão guardados nas variáveis T$(l), T$(2) e TS(3), respectivamente. 

A seguir, a tela fica em branco e começa a pesquisa. (90X23) 

Sendo encontrado o arquivo, é iniciada a pesquisa dos dados. 

Os dados serão recuperados N-a-N até o final do arquivo, quando então será 
exibida no vídeo a palavra “FIM”. Caso contrário, os títulos dos dados serão colo¬ 
cados no vídeo em situação vertical (um embaixo do outro), de modo a possibili¬ 
tar qualquer quantidade de dados. Os títulos devem ter no máximo 10 caracteres, 
para permitirem um certo alinhamento. Caso a tela fique cheia, haverá um SCROLL 
automático, conforme controlado pelos comandos 2210 e 2240. (J0X24) 

Neste caso particular, deve surgir a seguinte listagem no vídeo: 
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Como observamos, é bem simples. 

Crie outros arquivos e liste-os para treinar. Observe que pode listar qualquer 
dos seus arquivos, bastando que dê o nome do arquivo e o número de dados por re¬ 
gistros. 

Caso siga outra sugestão dada, imprimir o arquivo em papel; antes do coman¬ 
do 2220 PRINT T$(A); PS, inclua um teste para K$, para verificar qual foi a 
opção. Dependendo desta opção, desvie para um comando que tenha LPRINT no 
lugar do PRINT. O restante é totalmente igual. 
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PRÁTICA 


Vamos verificar se foi conseguido um domínio do ZX-DB suficiente para per¬ 
mitir as implementações particulares, mencioriadas várias vezes nos capítulos ante¬ 
riores. 

Serão feitas algumas sugestões, como: 

— Rotina de alteração de dados; 

- Rotina de ordenação de arquivo; 

- Inclusão de novos dados em arquivo já existente; 

— Exemplo de aplicação usando mais de um arquivo; 

— Implementando o Diretório; 

— Salvando e Recuperando somente o DB (dados), para quem tem o TK85 
ou o TK90X. 


CRIANDO JUNTOS UMA NOVA FUNÇÃO 

Como já sugerimos, deve-se pelo menos tentar criar outras funções. A função 
“3”, por exemplo - “SEM FUNÇÃO DEFINIDA”, está aí para você definir. 

Sugestão para o nome — “ALTERAR DADOS”. 

Serão necessários os seguintes passos. 

— Peça o nome do arquivo 

— Acesse o arquivo 

— Peça o nome da chave do registro 

(você poderá alterar, inclusive, a própria chave) 

— Acesse o dado 

— Altere o dado 

Comentários sobre as variáveis: 

- “B” conterá a posição de início do dado, isto é, a posição do identificador 
(áom, para a chave e do ■, para os dados propriamente ditos), 

- “C” conterá a posição do identificador (do J para arquivo, do — para o 
registro e do ■ do próximo dado) 

_ Para entrar com o novo dado, use uma variável qualquer já, existente, NS 

por exemplo. 
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w$ = 


— antes 



— depois 


Como sempre vimos fazendo, vamos, através da Fig. 8, observar como as coi¬ 
sas acontecerão no DB, para se alterar um dado. 

A opção “3”, no momento, estaria simplesmente assim: 

1500 PRINT AT 5,5; “SEM FUNÇÃO DEFINIDA” 

1510 RETURN 

Estes comandos seriam apenas para evitar a paralisação do programa por erro, 
quando se pedir a opção. 

Vamos fazer juntos, passo a passo, a nova rotina. 

Peça o nome do arquivo 

Seguindo os modelos das outras rotinas, vamos colocar no vídeo o título da 
função e pedir o nome do arquivo que contém o dado a ser alterado: 

1500 PRINI 

1510 PRINÍ 

1520 INPUT 

1530 PRINT 

Para que se possa ir testando à medida que inserimos novos comandos, vamos 
incluir o RETURN com um número maior possível dentro desta rotina. 

1399 RETURN 

Já podem ser testados os PRINT’s, basta comandar GOTO 100 e solicitar a 
opção “3”. 

Não esqueça de alterar o nome da função no menu de opções. 

Acesse o Arquivo 

Vamos acessar o arquivo através das sub-rotinas já existentes: 


H A 


ALTERANDO DADO 
QUAL ARQUIVO 


í3 i 
Ur. 

N$ 


'— f TJ 

"•t l! 




A? 
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1540 GÜSUB 9500 
1550 GOSUB 9000 
1560 1F N$OD$ TH Eh! RETURN 

Neste ponto, já podemos testar a existência do arquivo solicitado (para isto, 

digite nome de arquivo que não exista). 

Tudo OK até aqui? Vamos prosseguir, mas, antes, dê uma verificada no que já 

fez. 

Peça a chave do registro 

Vamos pedir a chave e acessar o registro exatamente como é feito em outras 
rotinas: 

1570 PRINTf t "QUAL A CHAVE ?" 

1580 INPUT m 
1590 PRINT N % 

1600 GOSUB 9530 
1610 GOSUB 9000 
1620 IF N$OD$ THEN RETURN 

Como foi feito no arquivo, teste a existência da chave solicitada. 


Acesse o dado 

Vamos acessar o dado, pelo seu número de localização dentro do registro. 

Para ter o controle sobre esta informação (número do dado dentro do regis¬ 
tro), você tem duas opções. 

1 - documentar externamente, através de anotações em fichas ou qualquer 

tipo de papel, o nome dos arquivos, contendo, entre outras coisas, o 
layout do registro, que deverá mostrar a posição de cada dado ou, 

2 - usar a opção “4” que lista o arquivo. 

A segunda opção é mais cômoda, mas talvez mais demorada, caso você tenha 
muitos arquivos e careça de absoluta certeza do que deseja, A primeira sempie e 

muito útil, inclusive tendo outras finalidades. 

Procure documentar sempre o que fizer. Só trará beneí idos a você mesmo. 

Vamos aos comandos: 


1630 PRINT ,"QUAL DADÜ DEVE SER ALTERADO 
1640 INPUT N 

1650 IF N=1 THEN GOTO 1700 

1660 FOR A“2 TO N 

1670 GOSUB 9300 

1680 NEXT A 

1690 GOTO 1720 

1700 LEI P$-D$ 

1710 LET B=B“CLEN P$+l) 

1720 PRINT " ANTES - “fP* 


11 
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Como você observa no comando 1650, se o dado a ser alterado é a própria chave 
ou o dado 1, ele já foi acessado pelo GOSUB 9000 do comando 1610 e está em D$. 
Não será necessário pesquisá-lo, bastando desviar para o comando 1700. Aí, então, 
D$ será colocado em PS, e do indexador B serão subtraídos o tamanho da chave, 
mais uma posição para o identificador. 

Para os demais dados (do segundo em diante), será suficiente repetir o GOSUB 
9300 (acessar o dado) tantos quantos forem os dados, a partir do segundo, confor¬ 
me mostra o comando 1660. 

Verifique se está acessando exatamente o dado que você deseja, executando a 
rotina e em seguida dando um comando PRINT das variáveis B e C. 


Altere o dado 

Vamos alterar o dado, conforme mostrado na Fig. 8 e no comando 1750. 

1730 PRINT "DIGITE 0 NOVO DADO" 

1740 INPUT N$ 

1750 LET W$=W$Í TO B)+N$+W$CC TO ) 

1760 PRINT " DEPOIS - ";N$ 


Que tal? Não foi simples? Isto porque temos o domínio sobre a estrutura do 
DB e de suas funções básicas. 

Execute agora a função “3”, completamente, para confirmar sua eficiência 
(verifique se não esqueceu de alterar o título de função “3” no menu de opções). 


Primeira Tela 
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Digite - CADASTRO 


ALTERANDO DADüb . 

QUAL ARQUIVO ? 
CADASIRO 
QUAL A CHAVE ? 


Digite - ANTONIO 



AL 1ERANRO DABUS»•« 

QUAL ARQUIVO ? 

CADASTRO 
QUAL A CHAVE ? 

ANTONIO 
QUAL DADO DEVE SER AL iI 



Digite “1” (para alterar o nome, a própria chave) 


ALTERANDO DADOS.. 


QUAL ARQUIVO ? 

CADASTRO 
QUAL A CHAVE ? 

ANTONIO 

QUAL DADO DEVE SER ALTERADO 
ANTES- ANTONIO 
DIGITE O NOVO DADO 
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Digite - FERNANDO 


ALTERANDO DADOS... 


QUAL ARQUIVO ? 
CADASTRO 
QUAL A CHAVE ? 
ANTQNIO 

QUAL DADO DEVE SER 
ANTES -- ANTÜNIG 
DIGITE O NOVO DADO 
DEPOIS “ FERNANDO 



Pronto! Está alterado. 

Execute agora a função “5” (PRINT DO DB), para confirmar a alteração. Ve¬ 
ja se “ANTONIO ..sumiu e se em seu lugar aparece “FERNANDO .. ” 

Tudo certo? Caso haja algo errado, verifique os comandos, corrija e tente no¬ 
vamente. 

Como esta função não está presente no ZX-DB, salve esta versão do pro¬ 
grama com a função “7” (SALVAR O ZX-DB). 

Caso venha a implementar o “diretório”, após a execução desta rotina, será 
necessário atualizá-lo, pois o dado pode ter alterado o tamanho do arquivo e, conse¬ 
quentemente, a partir dele, todos os indicadores de início e fim dos arquivos estarão 
errados. Isto é apenas um lembrete, deixe a preocupação para depois. 

Agora faça um sozinho. 

CRIANDO SOZINHO UMA NOVA FUNÇÃO 

Daremos apenas uma mãozinha. 

Sugerimos - “ORDENAR CRESCENTEMENTE O ARQUIVO PELA CHA¬ 
VE”, como função “9”. 

Deverão ser observados os seguintes passos: 

— Solicitação, 

— Preparação, 

— Ordenação propriamente dita e 

— Retomo do arquivo. 

Detalhando os passos: 

Solicitação 

Inclua no menu de opçóes o título e a possibilidade do número “9” como en¬ 
trada (como está só aceita números de 1 a 8). 
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Preparação 

Comece a rotina no número 4500, pois VAL de “9” x 500 é igual a 4500. 

Limpe a tela. 

Peça o nome do arquivo. 

Pesquise o arquivo. Encontrando o nome desejado, vá até o final do mesmo 
(até o próximo J). Use a sub- rotina de recuperação de dados, (9300). Use dois 
FOR, um para os registros (QR) e outro para os dados (N). 

Para esta pesquisa, crie algumas variáveis como indicado a seguir: 

- Guarde em TR o tamanho do maior registro, inclusive os identificadores. 

- Em TC, guarde o tamanho da maior chave, substituindo o vaior sempre 
que encontrar um tamanho de chave maior •! lembre-se de que o tamanho 
das chaves e dos registros são variáveis). 

- A cada m , conte o número de registros e guarde na variável QR. 

— Lembre-se de que A contém o início do arquivo e B tem o início do pri¬ 
meiro dado (chave). 

Defina uma matriz para colocar temporariamente o arquivo: 

DIM MS (QR, TR) 

MS será um arquivo de trabalho. 

Volte a pesquisar, desde o início, o arquivo dos dados, isto é, a partir de B, e 
vá preenchendo a matriz, tendo o cuidado de colocar a chave alinhada no início e 
mantendo os identificadores dos elementos (dados ■ e registros •), simplesmente 
para não ter que reincluir-se depois; como B será alterado em9300, salve seu con¬ 
teúdo em INI (variável já existente). 

Use novamente a sub -rotina de recuperação de dados (9300). 

Lembre-se de que, lá, Cé igualado a B (LET B = C). Para incluir os identifi¬ 
cadores, será necessário subtrair uma unidade de B, e consequentemente de C (vi¬ 
de 9300). Como 9300 pára no primeiro encontrado e o primeiro carácter do re¬ 
gistro é um ‘W\ acrescente uma unidade ao número de dados informado (N = N + 
1 j e elimine uma unidade de C (C = C — 1), a cada volta de 9300. 

Novamente use dois FOR, um para os registros e outro para os dados. 

Use uma variável qualquer; PS, por exemplo, para salvar temporariamente a 
chave e DS para os demais dados. 

Os dados devem ir sendo agrupados até o próximo identificador de registro. 

LET M$ (N, TO TC) = PS -*• para a chave 

LET D$=D$ + ■ +PS\ p ara os demais dados 
LET MS (N, TC+ 1) = D$Í 

“N” pode ser qualquer indexador já usado ou não, diferente de A, B e C. Ele 
será o indexador de registro. 

Graficamente, a preparação será como mostra a Fig. 9. 
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REGISTRO 

_ A _ 


ARQUIVO 

_ 



Figura 9 Preparando arquivo para ordenaçao. 


Ordenação 

Agora pode ser feita a ordenação propriamente dita, isto é, comparar dados 
2-a-2 e trocar de posição caso “dados de n9 E + 1” sejam menores que “dados de 

n? E”. 

Esta técnica é chamada de “Bubble-Sort”. O nome sugere que os dados me¬ 
nores, como bolhas mais leves, subam mais que os maiores. O fluxo da Fig. 10 e o 
exemplo de passos a seguir mostram como isto ocorre. 
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Figura 1(? Bubble-Sort. 
































PASSOS DO SORT 


Se considerarmos os dados 30 ? 0, 20 e l > teremos as seguintes passagens: 


)A) 


R ~4 


30 


0 


20 


1 


É 


E + 1 



1C) 


o 


3(3 


20 


1 


E 


E + 1 


1D) 



1E) 


0 


20 


30 


1 


E + 1 


0 


20 


1 




MUDANÇA = J 


X 


E + 1 


2A) 




0 


20 


1 

\ \ 

\30^ 

k \ N 


E 


E + 1 



2C} 


0 


1 


20 



MUDANÇA -2 



3A) 


R^2 


0 




20 \ 
A. 


\3J\ 
AA 


E 

E + 1 



MUDANÇA = 0 


O aspecto interessante deste SORT é que na passagem em que MUDANÇA 
for igual a zero sigiifica que todos os dados estão ordenados. Isto pode acontecer 
numa das passagens intermediárias, sem exigir que necessariamente seja feito um 
número de passagens para completar o FOR. Esta é a Bubble-Sort otimizada. 

A codificação ficaria como se segue: 

LET R = QR 

LET MUDANÇA = 1 
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FOR D = 1 TO R 
LET MUDANÇA = 0 
FOR E = 1 TO R - 1 

IF M$ (E 4- 1, TO TC) > = MS (E, TO TC 
) THEN GOTO NÃO 
LET DS =M$ (E + 1) 

LET MS (E + 1) = MS (E) 

LET MS (E) = D$ 

LET MUDANÇA = E 
NÃO NEXT E 

LET R = MUDANÇA 
NEXT D 

RETORNO DO ARQUIVO 

Agora que a matriz MS está ordenada de modo crescente de chave, o arquivo 
pode ser recolocado em seu lugar no DB. 

Podem ser usados dois caminhos: 

1 — Simplesmente incluir registro-a-registro com espaços extras das chaves 

menores e os da parte final do registro. 

2 - Incluir registro-a-registro, eliminando os espaços. Graficamente, a pri¬ 

meira opção fica como mostra a Fig. 11. 



M$ (1) = 

M$ (2) = 


M$ (QR) 


INI C 



1 _ 


início 

Reg 1 

Reg 2 

* . . 

último 

fim 


Figura 11 Retornando arquivo sem eliminar espaços. 


Observar que, na “mãozinha’’ anterior, foram usados indexadores diferentes 
de INI e C, para não se perder o início (INI) e o fim (C) do arquivo. 

Mais uma mãozinha .. . 

LET NS =W$ (C + 1 TO) — primeiro, salva final em NI 
LET WS - WS (TO INI - 1) - depois, salva em WS só o início. 
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Esta ordem deve ser observada para não se perder o final. 

FORD = 1 TO QR ) 

LET WS = WS + MS (D) ? restaura arquivo 
NEXTD ) registro-a-registro 

LET W$ =W$ + N$ restaura finai 

Na segunda opção, será necessário usar um passo intermediário onde se recrie 
os registros sem espaços, como mostra a Fig. 12. 


M$ (1) = 


N$ 




= preenchido 


=espaço 


Figura 12 Retornando arquivo eliminando espaços. 


Para isto, é necessário pesquisar byte-a-byte; caso seja espaço, não agrupá-lo. 
A codificação poderá ser a que se segue: 


NEXT 


FOR A = 1 TO QR 
LET PS = “ ” 

FOR Z = 1 TO TR 
LET RS =M$ (A, ZTOZ) 

IF R$ = “ ” THEN GOTO NEXT 
LET P$ =P$ + RS 
NEXT Z 

LETWS =WS + PS 
NEXT A 

LET WS = WS + N$ -> restaura final 


> — restaura arquivo byte-a-byte 


Ao final da rotina, não esqueça o RETURN. 

Creio que, a partir de agora, caso tenha seguido todos os passos indicados, vo¬ 
cê já tem condições de criar totalmente sozinho outras i unções. 

Vou sugerir apenas o nome — “INCLUSÃO DE NOVOS DADOS EM ARQUI¬ 
VO JÁ EXISTENTE”. 

Não se esqueça de ver os passos necessários: 


— Enumere os passos 

— Detalhe um pouco mais 

— Codifique 

— Sempre que possível, represente antes graficamente o que você deseja. Pro¬ 
cure com o desenho figurar o que quer que aconteça com o DB, a cada 
passo. 

— E mãos à obra! 
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UTILIDADE PRÁTICA DO ZX-DB 

Aqui vão algumas sugestões para você criar suas próprias funções específicas 
do tipo da “Calculando Salário Líquido”. 


Usando mais de um arquivo 

Quando se trabalha com DB, é muito comum o relacionamento entre arquivos 
e entre dados. Dados, inclusive, de arquivos diferentes. Esta é uma das grandes uti¬ 
lidades do DB. Esta utilização de mais de um arquivo deve ser bem entendida para 
que a tarefa se torne fácil. Os arquivos estão todos ali. Muito próximos. Juntos mes¬ 
mo. 

Um Sistema Gerenciador de Banco de Dados (SGBD), de grande porte, prevê 
o uso de diversas linguagens de programação e adaptações. 

Aqui, em termos de linguagem, podemos contar com o BASIC e o ASSEM- 

BLY. 

Normalmente, em grandes computadores, são confeccionados diversos progra¬ 
mas para as aplicações que acessam o DB. No nosso caso, os programas são as fun¬ 
ções ou opções, ou ainda, as rotinas: CRIAR, DELETAR, LISTAR, ORDENAR, 
ALTERAR etc. e outras mais que porventura venha a criar. 

A nossa limitação aqui será a de sempre — o tamanho da memória. Teremos 
que arranjar arquivos e programas no mesmo espaço, sejam quantos forem, exceção 
apenas para o TK85 e para o TK90X. Mas para o nosso objetivo didático, tudo está 
sob controle. Vamos então apresentar uma idéia que poderá ser usada na prática, 
na qual veremos como utilizar mais de um arquivo em uma mesma função. Seria o 
equivalente a se dizer “um programa que utiliza mais de um arquivo”. 

Vamos ao exemplo! 

19 ) Controle de Compras Mensais de A limen tos 

Os arquivos podem ser visualizados como tabelas. Veja Figs. 13, 14, 15, 16, 
17 e 18. 

Vamos ver duas formas de combinações: 

A primeira forma: 


PRODUTO 

QUANTIDADE 

EM KG 

CÓDIGO 

NOME 


0i0 ; 

ARROZ 

10 

015 

FEIJÃO i 

50 

052 

1 SAL 

1 

109 

CEBOLA 

2 

371 

GORDURA 

5 


'4 


Figura 13 Relação de compras com quantidades fixas. 
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CÓDIGO 

PREÇO POR KG 

010 

900 =• 

015 

1200 

020 

500 

025 

300 

052 

400 

109 

1000 

200 

888 

371 

781 


Figura 14 Preços de janeiro. 


CÓDIGO 

PREÇO POR KG 

010 

950 

015 

1500 

025 

700 

1 052 

410 

109 

1 850 

371 

800 


FiguralS Preços de fevereiro. 


Estes arquivos podem ser criados normalmente pela função “1 — CRIAR AR* 

Qurvos”. 

— A Primeira combinação 

Em princípio, os arquivos são independentes e individuais. Podem ser criados, 
alterados, ordenados, listados etc. 

Para podermos ter um relacionamento entre eles, é necessário que nos arqui¬ 
vos envolvidos exista pelo menos um dado que seja equivalente. No caso exemplifi¬ 
cado, este dado vem a ser o CÓDIGO DO PRODUTO. 

Com o relacionamento destes arquivos, pode-se, por exemplo: calcular o “Va¬ 
lor Total do Estoque”; saber quais os dados que estão com “Estoque Zero” (a cada 
utilização do produto, deverá ser feita uma alteração na quantidade); “Diferença 
das Compras” do mês X para as do mês Y etc. . . . 

O código será a “chave”. Os arquivos deverão ser pesquisados pela mesma cha¬ 
ve, e os dados que virem a interessar deverão ser guardados em variáveis indepen¬ 
dentes, as quais, juntas, formarão o registro lógico. Aqui, por exemplo, teremos: 

Arroz para janeiro 

AS = 010-código 

BS = arroz-- nome 

CS = 010-quantidade ou quilos 
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Dados extraídos do primeiro arquivo (Fig. 12). 

DS = 900---valor de um quilo 

Dados extraídos do segundo arquivo (Fig. 13). 

Para o valor do estoque de arroz, bastaria multiplicar CS por DS. 

ES = C$*D$— -■ total da compra de janeiro 


Arroz para fevereiro 

FS = 950 ---valor de um quilo 

G$ - CS * FS_total da compra de fevereiro 

Para a diferença das duas compras, basta subtiaii ES de GS, isto c, compra 
total de fevereiro menos compra total de janeiro. 

HS = GS - ES -- diferença 


O registro lógico completo ficaria: 


AS 

= 010 -— 

BS 

= ARROZ 

CS 

- 010 

DS 

= 900- 

ES 

- 9000 

FS 

- 950 

GS 

= 9500 — 

HS 

= 500- 

Isto 

pode ser e: 


código do produto 

— nome do produto 

— quantidade do produto em quilos 

— valor de um quilo em janeiro 

— valor total da compra de janeiro 

— valor de um quilo em fevereiro 

— valor total da compra em fevereiro 

— diferença valor total das compras 


total das compras. 

Podem também ser apurados os produtos que não lotam comprados em teve- 
reiro, o consumo médio etc. ... 

Normalmente, estes tipos de informações são apuradas ou geradas, para que 
juntas formem um determinado Relatório. 


— A Segunda combinação: 


Outra disposição dos mesmos dados: 


CÓDIGO 

NOME 

010 

ARROZ 

011 

FEIJÃO 

013 

SAL 

015 

CEBOLA 

020 

GORDURA 

: 025 

MACARRÃO 

030 

PEIXE 

052 

CARNE 

109 

LINGUIÇA 

200 

OVOS 

, 371 

FARINHA 


Figura 16 Produtos. 
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CÓDIGO 

QUANTIDADE 

PREÇO 

010 

10 

900 

013 

5 

1200 i 

020 

3 

800 

030 

4 

2000 

109 

10 : j 

3200 

200 

5 

1200 


Figura 17 Compras de janeiro. 


CÓDIGO 

QUANTIDADE 

PREÇO 

010 

5 

910 , 

011 

3 

800 

020 

10 

í 1100 

025 

1 4 

500 

030 

7 

2500 

052 

10 

5000 

109 

9 

1200 

jj 200 

1 

1400 

371 

2 

600 


Figura 18 Compras de fevereiro. 


Um arquivo (Fig. 16), com apenas os códigos e nomes dos produtos, pode ser 
ampliado à medida que surjam novas necessidades. Por exemplo, um arquivo de 
compras (Figs. 17 e 18) para cada mês, contendo os códigos, quantidades e preços 
dos produtos comprados. Com estes, pode-se apurar o “Consumo e o custo médio 
mensal”; “Consumo total por produto até o último mês”, fornecendo-se para a 
função apenas o nome ou o código do produto. 

Dois caminhos que podem ser seguidos: 

3 — Reunindo os arquivos por programa 

2 — Reunindo os arquivos externamente (redigitando) 

Reunindo os arquivos por programa 

Antes de mais nada, precisamos determinar claramente quais informações fi¬ 
nais desejamos obter. 

Vamos escolher - “Consumo médio e preço médio por produto até o mês.. 

Como sempre existem vários modos de se obter o mesmo resultado, o que va¬ 
mos indicar é apenas uma opção: 

- Criar por programa um único arquivo intermediário com os dados dos vá¬ 
rios arquivos envolvidos, eliminando-se, o máximo possível, os dados re¬ 
dundantes. 
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Em matemática, ao arquivo resultante dá-se o nome de conjunto união. 



A = (1,2, 3, 4, 5} 

B = {1,5,6} 

C = {1,6,7} 

resultante = {1, 2, 3, 4, 5, 6,7} 


_ o arquivo intermediário terá então o seguinte layout para o registro (vide 
Fig. 19). 


NOME/MÊS 


QUANTIDADE 


PREÇO 


_ Será criado um novo dado NOME/MÊS, unindo* se o nome do pioduto 

com os dois algarismos respectivos ao mês das compras. Com isto, será cria¬ 
da mais de uma chave diferente e consequentemente mais de um registro, 
isto porque são mais de um registro realmente diferentes com quantidades 
e preços diferentes. 

0 código do produto no arquivo resultante perde sua função. 

- O arquivo intermediário resultante, após sua utilização (impressão, consul¬ 
ta etc.), deverá ser “deletado”, pois também perde sua finalidade, visto que 
pode ser recriado a qualquer momento. 

— A seguir será criado o arquivo final, com o seguinte layout do registro. 


NOME 


QUANTIDADE MÉDIA 


PREÇO MÉDIO 


PASSOS 

— Isolar arquivo de produtos num arquivo matriz (DIM) auxiliar, como feito 
na ordenação, com a vantagem de a chave ter tamanho fixo. 

Como a função aqui é bem específica, não há necessidade da solicitação 
dos nomes dos arquivos, visto que os mesmos também são bem específicos. 

— Criar arquivo final. 

_ os arquivos intermediários resultantes poderão ser agregados ao final do 
DB, caso se deseje listá-los, por exemplo, antes de deletá-los. 

Reunindo os arquivos extemamente 

A necessidade de utilizar dois arquivos, como já foi dito, quase sempre pode sei 
substituída pela recriação do arquivo, incluindo nesta recriação todos os dados que 
venham a interessar. Por exemplo: no caso de ter-se um arquivo com CÓDIGO e 
NOME DO PRODUTO (Fig. 16), outros com CÓDIGO, QUANTIDADE COMPRA- 


67 








DA e PREÇO DO PRODUTO para cada mês (Figs. 17 e 18), pode-se recriar um 
(mico eliminando-se o código do produto e juntando-se ao NOME dois algarismos 
para indicar o mês de compra. Sendo este dado a chave, com a ordenaçao teremos 
todos os nomes juntos e ern ordem de mês, isto é, o registro de janeiro na frente do 
registro de fevereiro e assim sucessivamente até dezembro. A cada mês pode sei in¬ 
cluído o registro do mês e em seguida ordenar (Fig. 19). 

Em vez de usar o nome, pode-se usar o código que é bem menor. No caso de 
necessidade do nome, pesquisa-se o arquivo de CÓDIGO e NOME. Isto se toma 
bem interessante quando se têm nomes muito grandes. No caso em questão, os no¬ 
mes são bem pequenos e podemos tolerar suas repetições nos vários registros. 

Por isto. é importante que antes de se criar o arquivo sc pense bem na utiliza¬ 
ção que se fará dele, deixando para usar mais de um arquivo quando não houver ou¬ 
tro jeito. 


PRODUTOS JAN 


FEV. .. 



Figura 19 Recriando um único arquivo. 


Podemos criar um arquivo (tabela) de meses conforme Fig. 20. Este arquivo 
será muito útil, inclusive, em outras aplicações que necessitem do nome dos meses. 

Corno sabemos que a chave é o nome do produto acrescido de duas posições 
para o mês de aquisição, para se obter o nome do mês basta pegar as duas últimas 
posições da chave. Tendo o número, acessa-se o arquivo de nome dos meses. 

Logo no início da função, você deve ler o arquivo de meses e colocá-lo numa 
matriz D1M VS (12, 11), ou criá-lo já em um Array. 
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Para obter o consumo e o preço médio, basta acumular valores e quantidades 
independentemente, é claro, e dividir este somatório pelo número do último mês da 
compra, que será obtido após a ordenação e quando na pesquisa o nome do próxi¬ 
mo produto for diferente. Este mesmo número pode ser usado para acessar a tabela 
de meses para a impressão da seguinte condição: “Consumo e preço médio até o 
mês . . O uso da sub-rotina que acessa o dado será semelhante ao do cálculo do 
salário líquido. 

2? ) Controle do consumo médio de combustível: 

Para isto, crie um arquivo com os seguintes dados: 

DT — Data do Abastecimento 

Kl — Quilometragem Inicial 

KF — Quilometragem Final 
L — Quantidade de Litros 
V — Valor pago 

A chave pode ser a quilometragem Inicial e/ou a data. Quando se ordenar os arqui¬ 
vos, os lançamentos automaticamente vão ficar na ordem do abastecimento. 

Os cálculos: 

• Quilômetros — KR = KF — Kl 

• Dividir estes quilômetros rodados pelos números de litros para achar o con¬ 
sumo — C - KR/L 

• Com o valor, pode-se calcular o total gasto no mês acumulando-se todos 
os valores dentro do mês. 

Como na sugestão anterior, a recuperação dos dados deve ser feita como no 
“Cálculo do Salário Líquido”. 

Pelo que você viu, há boa margem de utilização. O segredo é a forma (quais os 
dados e como arranjá-los) que se deve definir no arquivo. 

Nos dois exemplos, os arquivos tiveram fornias diferentes e com isto puderam 
fornecer informações diferentes. Então, atenção: quando for projetar os arquivos, 
procure imaginar qual ou quais informações pretenderá extrair deles. 

Com o parágrafo anterior, deu para se abordar a diferença entre “dado” e “in¬ 
formação”, o que geralmente é confundido. Os dados estão no arquivo. Você os di¬ 
gitou. A informação foi o resultado, a consequência que você extraiu deles. Por 
exemplo, qual a “diferença das compras de um mês para o outro”. 

Aqui vai a seguinte sugestão de ordem prática: 

— Crie vários DB. Cada um com arquivos respectivos à aplicação imaginada. 

— Salve cada um numa fita K7 em separado. 

- Cole uma etiqueta no K7 com dizeres que identifiquem a aplicação. 

— Não esqueça de documentar em papel o mínimo necessário para lhe faci¬ 
litar a utilização. 

- Guarde uma versão básica (original) do programa com o DB = “ ■ sem 
funções específicas que não interessarem a todas as aplicações. 
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NÚMERO 

NOME 

01 

JANEIRO ■. - 

02 

FEVEREIRO 

' 03 

MARÇO 

04 

ABRIL 

05 j 

MAÍO 

06 

JUNHO 

07 

JULHO 

08 ! 

AGOSTO 

09 

SETEMBRO 

10 

OUTUBRO 

11 

NOVEMBRO 

12 

DEZEMBRO 


Figura 20 Meses. 


IMPLEMENTANDO O DIRETÓRIO 

Caso tenha aceito minha primeira sugestão de criar um “diretório”, seguem 
mais algumas palavras e um modelo (Fig. 21). 



NOME ARQUIVO 

INÍCIO 

TAMANHO 

TOTAL 

REGISTROS 

DADOS 

POR REGISTROS 

1 






2 






3 






4 






5 






6 






7 1 






8 






9 






10 







Figura 21 Diretório. 


0 que se pode obter de útil com o diretório? 

Considere o diretório como o índice de um livro. Quais os benefícios que se 
tira do índice de um livro? 


— Com uma breve consulta, sabe-se que o assunto procurado está presente 
ou não no livro em questão. 

— Se está presente, vê-se logo onde começa. 
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- Pelo início do próximo assunto, obtém-se o número de páginas que com¬ 
põem o assunto que nos interessa, 

— Havendo um sub índice, sabem-se quais os tópicos “chaves” dentro do as¬ 
sunto. 

— Etc... 

De modo muito semelhante, é usado o diretório. 

Ainda como um fichário em que se possa incluir ou retirar folhas, sempre que 
isto ocorrer será necessário corrigir-se a numeração indicada das páginas. De modo 
semelhante, deverá ser atualizado o diretório, sempre que se criar, deletar ou alte¬ 
rar dados, registros ou arquivos. 

Com os indicadores de início dos arquivos, pode-se ir, como num livro, direto 
ao ponto desejado sem ter que passar por todos os assuntos anteriores. 

Somente por estas breves palavras, cremos já ter mostrado como um diretório 
pode ser útil, abreviando enormemente nossas funções e o tempo de acesso aos ar¬ 
quivos. 

Quando surgem as informações para o diretório? As iniciais? Assim que se cria 
os arquivos. As de atualização, exatamente no momento da execução da função que 
altera o arquivo. 

O dado “inicio” é chamado “ponteiro” ou “pointef \ Ele aponta, exatamente 
como indica seu nome, o início do arquivo dentro do DB. 1 emos usado os indexa- 
dores A, B e C como ponteiros. 

Com o diretório, a deleção de um arquivo pode ser bem mais rápida, visto 
que, após consultá-lo e obter os respectivos início e fim, bastará eliminá-lo doDB 
e seu consequente registro no próprio diretório. Em seguida, deve ser processada a 
atualização das novas posições dos arquivos no diretório. 

Aos registros do diretório, dá-se o nome de “entrada”. Cada arquivo tem uma 
entrada no diretório. Alterando-se um arquivo, todas as entradas a partir daquele 
deverão ser alteradas. 

O que é mais imediato é a possibilidade de verificação da existência ou não de 
um nome que se supõe novo, entre os já existentes no diretório. 

O diretório pode ser enriquecido com outras informações sobre o arquivo. De- 
ve-se evitar, no entanto, o exagero. 

O diretório poderá ser um arquivo independente ou fazer parte do próprio DB. 

Com o diretório, todas as funções deverão acessar primeiramente o diretório. 
Isto significa que todas as funções que acessam os arquivos deverão ser alteradas, ou 
melhor, abreviadas. 


CRIAÇÃO DO DIRETÓRIO 

Vamos criá-lo independente, por achar mais prático. 

Faremos também algumas restrições tais como: 

- Tamanho do nome = 8 símbolos, que deverão ser totalmente preenchidos, 
mesmo com espaços se for o caso. 

— Número de entradas (arquivos) = 10 
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— Total de registros, no máximo 999, isto é, um número com no máximo 
três algarismos. 

— Dados por registro, no máximo nove, isto é, um número com no máximo 
um algarismo. 

(estes números poderão ser alterados a seu critério). 

Para criarmos a matriz do diretório, devemos dar o comando BASíC em for¬ 
mato livre: 

DIM VS (10, 20) 

Devemos considerar cada entrada com o seguinte layout: 


V$ (N, 


NOME 

INICIO 

(!) 

TAMANHO 

(T) 

R EG'S 
(QR) 

DADOS 

(QD) 

TO 8) 

9 TO 12) 

13 TO 16) 

17 TO 19) 

20) 


Inicialize a matriz VS, com zeros com os seguintes comandos, que depois de¬ 
vem ser apagados: 

FOR F = 1 TO 10 

LET VS (F) = “00000000000000000000” 

NEXTF 

É muito bom também que inclua a função auxiliar — “LISTAR DIRETÓRIO”. 

PRINT “DIRETÓRIO” 

PRINT ,, “NOME INIC TAM REG DADOS” 

FOR A = 1 TO 10 

PRINT VS (A, TO 8); " ” ; VS (A), 

9 TO 12); " ” ; VS (A, 13 TO 16); “ 

VS (A, 17 TO 19); “ ” ; V$ (A, 20) 

NEXT A 
RETURN 

Sempre quando incluir uma nova função, atualize o menu de opções e os tes¬ 
tes de modo a permitirem a aceitação do novo código. 

Deve ser criada uma nova sub-rotina — ACESSANDO DIRETÓRIO: 


9600 
9610 
'3620 
9630 


REM ** ACESSANDO DIR ** 

FOR F=i TO 10 

LLT f ÍÜ 9 ) 

IF D$=dM$ GR 0$-"00000000" 


THEM GOTO 3660 


9640 NEXT F 

9650 PRINT "FIM Dü DIRETOR10" 
9660 IF m=m THEN PRINT N$, M JA 
9670 IF m~m THEN GOTO 9700 
9680 PRINT N$í" NAO CRIADO" 


CRI ADO 11 
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9690 LET F-F-i 

9700 LET I=VAL V$CF,3 TO 12) 

971 0 LET T=V AL V $(F, 1 3 TO 16 ) 
9720 LET QR=VAL V$ÍF,17 TO 19) 


J I -J 


0 LET QD--VAL V$(F,2G) 


9740 IF D$OW$ THEN LET F=F+1 
9750 LET T2-T+1 
9760 RETURN 


Como já foi dito. todas as funções que alteram o DB deverão ser ajustadas à 
nova situação, isto é, considerando-se agora o diretório. 

Conforme a rotina, após solicitação do nome do arquivo e acesso ao diretó¬ 
rio, devem ser seguidos respectivamente os seguintes passos: 

1 — Para criar Arquivo íse N$ <>D$eF<ll) 

- GOSUB9600 

Caso dê “inexistente” e não “fim do diretório” 

— Criar o arquivo, guardando: 

Tamanho do DB antes (TI = LEN WS) 

nome-»n$ 

INÍCIO -+T1 + 1 

Tamanho do DB depois (T2 =LEN WS) 

Tamanho T2 — TI 
Quantidade de Registros (QR) -*■ R 
Quantidade de dados (QD) ->■ D 

— F, apontará para a primeira entrada disponível. 

2 — ParaDeletar: 

2.1 — Arquivo (se NS -D$) 

— Deleção propriamente dita do arquivo baseando-se no / e no T 

LET WS = WS (TO I) + WS (I + T TO) 

— Atualização do diretório 

• Subtraindo a partir do arquivo F + 1,7 dos 7’s seguintes 

• Substituindo dados de F pelos dados dos F s seguintes, ficando 
o último zerado, 

2.2 - Registro: (se N$ = D$ ) 

— Deleção propriamente dita do registro 

• Buscando registro, a partir de I pela chave NS, solicitada 

• Eliminar a parte relativa ao registro 

• Criar 77 (contendo o tamanho do registro a eliminar) 
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— Atualização do diretório 

* Subtraindo TI de T 

• Subtraindo TI dos Ps seguintes ao F 

3 — Para Alterar: (se NS = DS) 

— Acessar arquivo a partir de / 

— Guardar o LEN WS em Tl, antes 
— Guardar o LEN WS em T2, depois 

- Subtrair T2 de Tl 

• Se T2 > Tl, será negativo 

• Se T2 < Tl, será positivo 

- Somar algebricamente o resultado ao T do arquivo e ao$/’s seguintes ao F. 

4 — Para Inclusão de Registros: (se NS = DS ) 

— Acessar final do arquivo NS com T2 

- Salvar o tamanho do DB antes da inclusão 

- GOTO 540 para incluir (como se fosse criar) 

Guardar e somar respectivamente : 

T2 = LEN WS — Tl (tamanho após inclusão) 

R -► QR + R 

N -> QN + N 

— Somar T2 aos Ps a partir de F + 1 

5 — Ordenar, Listar e Funções específicas (se NS = DS) 

Basicamente sofrerão alteração em suas lógicas; apenas não necessitarão solici¬ 
tar - “NÚMERO DE DADOS POR REGISTRO”. Poderão usar QD (quantidade de 
dados) diretamente do diretório. 

Deverão acessar inicíalmente o diretório e testar sua existência. 


DETALHANDO UM POUCO MAIS OS PASSOS 

1 — Criando Arquivo 

— Verificar existência do arquivo e guardar o tamanho do DB antes da cria¬ 
ção do novo arquivo. 

Acrescentar após comando 520 INPUT NS: 

GOSUB 9600 

IF NS = DS OR F > 11 THEN RETURN 
LETT 1 = LEN WS 

— Entrada normal através da rotina 1 
— Ao término da digitação, após comando 

690 LET WS « WS (TO LEN WS - 1) 

Atualize o diretório com os comandos: 

(nome) - LET VS (F, TO 8) = NS 
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(I) - IF F > 1 THEN LET VS (F, 9 TO 12) 

= STRS(I + T) 

IF F = 1 THEN LET V$ (F, 9 TO 12) = “2” 

(T) - LET VS (F, 13 TO 16) = STRS (LENWS — Tl) 

(QR) - LET V$ (F, 17 TO 19) = STRS R 
(QD) - LET V$ (F, 29) = STRS D 

Atenção: 

Sempre que for criar um arquivo, mesmo que não use os oito símbolos, com¬ 
plete com brancos. Esta é uma forma prática de evitar duplicata de nomes. 

2 - Delatando Arquivo/Registro: 

Deverá ser alterada um pouco a rotina já existente. 

_ Após solicitação do nome do arquivo e verificada sua existência, 

(IF NS <> DS THEN RETURN), solicitar 

• Todo o arquivo? (S/N) 

• Sim — vai até o final da rotina 

• Não — pede a chave 


F neste caso é o número da entrada a ser eliminada. Vamos ver o primeiro caso. 

2.1 — Todo o Arquivo 

_ Deletar o arquivo do DB com o comando: 

LET W$ = W$ (TO I) + WS (I + TTO) 

— Atualizar o diretório 

INICIO IF F + 1 > 10 THEN GOTO FIM 

IF VS (F + 1, TO 3) = “999” THEN GOTO FIM 
LET V S (F, TO 8) = V$ (F + 1, TO 8) 

LET VS (F, 9 TO 12) = STRS (VALVS (F + 1,9 TO 12) — T) 

LET VS (F, 13 TO) = VS (F + 1,13 TO) 

LET F = F + 1 

IF VS (F, TO 3) < > “000” THEN GOTO INICIO 

FIM LET VS (F) =“00000000000000000000” 

RETURN 

2.2 - Somente um Registro 

— Solicitar a chave do registro 

PRINT “CHAVE DO REGISTRO?” 

INPUT NS 

Neste caso, será necessária a pesquisa do DB, mas não a partir do início ao DB 
e sim do início do arquivo. Para isto, I ja conterá esta localizaçao. 

Como o registro pode conter apenas um dado, é necessário subtrair 1 de I. 
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Aqui serão usadas as sub-rotinas 9530 e 9000, normalmente, e o teste de cha¬ 
ve encontrada. 

Terminado isto, teremos emyí o início do registro. Para obter o final, usare¬ 
mos os mesmos comandos da rotina de deleção usada até então ..Em B, temos o iní¬ 
cio dos dados. Começamos a pesquisa a partir daí, somando 1 a^. 

FAST (90X25) 

GOSUB 9530 
LET I = I - 1 
GOSUB 9000 

IF DS <> NS THEN RETURN 

IF QD = 1 THEN GOTO DEL 

FOR C = B + 1 TO LEN WS 

LET RS -=XS OR RS =“ J” THEN GOTO DEL 

NEXT C 

À pesquisa, encontrando o próximo arquivo ou ainda o final do DB, restará 
apenas deletar o registro. 

- Vamos deletar: 

DEL LET WS = WS (TO A - 1) + WS (C TO) 

PRÍNT NS; “DELETADO” 

- Vamos atualizar o diretório 

0 pedaço eliminado tem o tamanho de C menos A. 

LET Tl = C - A 
LETT-T-T1 

LET VS (F, 13 TO 16) =STRS T 

— Vamos eliminar 1 registro do QR 

LET QR = QR- 1 

LET VS (F, 17 TO 19) = STRS QR 

Estando esta entrada atualizada, vamos ajustar apenas o início dos arquivos 
seguintes a este, subtraindo de seus inícios o tamanho do pedaço (Tl) eliminado: 

INICIO 1 IF F + 1 > 10 THEN RETURN 
LET F = F + I 

IF VS (F, TO 3) <> “000” THEN 

LET VS (F, 9 TO 12) = STRS (VAL VS (F, 9 TO 12) — Tl) 

GOTO INICIO 1 

Tendo agora T2 (posição do início + o tamanho do arquivo), podemos subs¬ 
tituir nas sub-rotinas a expressão LEN WS por T2 — 1, o que abreviará bastante a 
pesquisa. 

Algumas alterações e implementações devem ser feitas nasub-rotina 9000. 

- Após 9150 GOTO 9055 

9180-> LET DS =“” 

LET I = B - 1 

IF QD = I THEN GOTO 9100 
IF B > T2 THEN GOTO 9055 
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— Substituir 9200 de GOTO 9050 

para GOTO 9020 
9300 de RETURN 
para LET C — B 

- Após 9230 -*■ RETURN 
3 — Alterando Arquivo 

— Após pedir nome do arquivo, acessar diretório, verificando sua existência. 
Caso positivo, guardar o tamanho do DB: 

GOSUB 9600 

IF NS < > DS THEN RETURN 
LET TI = LEN W$ 

Podem ser eliminados os GOSUB 9500 

GOSUB 9000 

usados para se chegar ao início do arquivo. 

— Solicitar chave do registro a ser alterado 

PRINT “QUAL A CHAVE?” 

INPUTNS 

— Como no caso anterior, pesquisar a partir do / - 1, pois o registro pode ter 
apenas um dado. 

FAST (90X26) 

GOSUB 9530 
LET 1=1— 1 
GOSUB 9000 

IF DS <> NS THEN RETURN 

- A partir daqui, segue a codificação já existente. 

Apenas acrescente o comando: 

IF C < = B THEN LET C = TI + 1 

para o caso específico de: 

• alteração do último dado e 

• alterar diminuindo 

_ Ao final, atualizar diretório: guarde em T2 a diferença do tamanho do DB, 
“depois” menos “antes” 

LET T2 = LEN WS - TI 

_ Se a diferença for positiva, o DB aumentou de tamanho. Caso contrário, o 
conteúdo de T2 conterá quantos bytes diminuíram. Some algebricamente 
esta diferença ao T Do arquivo. 

LET V$ (F, 13 TO 16) = STR$ T + T2 

— Para os demais: 

INICI02 IF F + 1 > 10 THEN RETURN 
LET F=F+ i 

IF VS (F, TO 3) <> “000” THEN 
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LET VS (F, 9 TO 12)=STRS 
(VAL V$ (F,9 TO 12) + T2 
GOTO INICI02 


4 — Inclu indo No vos Dado s 

Como nos outros casos: acessar diretório e verificar existência ou não do ar¬ 
quivo, pelo teste: 

IF NS ~DS 

— Salvar o tamanho do DB antes da inclusão em Ti 
TI = LEN W $ 

Lembre-se de que T2 tem o início do próximo arquivo, então, para salvar do 
fim deste arquivo ao fim do DB 

LET PS = WS (T2TO) 

— Preparar para inclusão e incluir: 

LET WS = WS (TO T2 - 1) + 

GOTO 540 

No menu , foi estabelecido um código a ser digitado para a opção de “Inclu¬ 
são de Registros”. 

Este código deverá estar na variável K.S. Antes da pergunta “QUANTOS 
DADOS POR REGISTRO?” pode ser incluído um teste, 

IF K$ <> “A” THEN GOTO X 
LET D = QD 
GOTO Y 

Considerando que “A” é o código para inclusão e que estamos aproveitando a 
rotina e “Criar Arquivos”. 

X = (comando que pede n*? de dados) 

Y s (comando após pedido do n? de dados) 

Na rotina de inclusão, após o comando: 

690 LET WS = W$ (TO LEN WS - 1), deve 
ser incluído um teste (inclusão = “A”) 

IF K$ = “A” THEN GOTO 5080 

— Juntar as duas partes WS + P$ 

LET WS =W$ + PS 

— Atualizar o diretório 

Calcular tamanho acrescido, corrigir T e QR deste arquivo: 

LET T2 = LEN WS - TI 

LET T = T + T2 

LET VS (F, 13 TO 16) =STRS T 

LET VS (F, 17 TO 19) = STRS (QR + R) 

Corrigir / dos arquivos seguintes: 
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INICIO 4 IF F + 1 > 10 THEN RJETURN 
LET F = F + 1 

IF VS (F, TO 3) < > “ 000 ” THEN 
LET VS (F, 9 TO 12) = STR$ 

(VALVS (F, 9 TO 12) + T2 
GOTO INICIO 4 

5 — Ordenando 

Após solicitação do nome do arquivo (N$): 

GOSUB 9600 

IF N$ <> D$ THEN RETURN 

Antes do primeiro GOSUB 9300, para o maior tamanho de chave (TC) e 
maior registro (TR) fazer: 

C = 1 + 9 

Nos comandos que pedem o número de dados por registro, substituir N por 

QD. 

Nos comandos que usam a expressão í,EN WS, é mais interessante usar a ex¬ 
pressão T2 - 1, pois diminui a pesquisa. 

O comando 4620 deve ser eliminado. 

Antes do segundo GOSUB, fazer: 

C = I + 8 

para preencher a matriz M$, 

Antes de retornar o arquivo ao DB, nos comandos que salvam o início e o fi¬ 
nal, usar T2 e a expressão I + 8: 

LET m = WS (T2 TO) - final 
LET WS = WS (TO I + 8) - início 

6 — Listando 

Logo de início, eliminar o comando 2020- 
No lugar do GOSUB 9000, usar GOSUB 9600. 

Testar a existência: 

IF N$ <> DS THEN RETURN 

Como no caso anterior, usar QD no lugar da variável N, solicitada. 

Antes do GOSUB 9300, para recuperar dados a serem listados, faça: 

C = I + 9 

para que a pesquisa comece exatamente no primeiro dado. 

7 — Nas Aplicações específicas 

Neste caso, temos a função “8” — “Salário líquido”: 

- Após solicitação e fornecimento do nome do arquivo: 

GOSUB 9600 
— Teste de existência 

IF D$ <> NS THEN RETURN 
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GOSUB 9530 
LET C = I + 9 

— A partir daí, a rotina: 

Se for acessar chaves: 

GOSUB 9000 

Se for acessar dados: 

GOSUB 9300 

O restante não há mudanças nem adaptações. 


NOTA: Nos casos em que os comandos BASIC apresentados não foram acompa¬ 
nhados por números ou apresentaram um labei no lugar dos números (tipo 
INICIO, INICIO 1 etc.) objetivou deixar o interessado à vontade para es¬ 
colher os números que melhor convier. 


SALVANDO E RECUPERANDO APENAS O DB NO TK85 


Salvando 

O recomendável é que se reescreva a rotina de BACKUP do DB, isto é, a 
opção 7. 

Pode ser aberta em várias sub-opções: 

1 _ “DB” + PROGRAMA 

2 - SOMENTE O “DB” 

e suas variações de alta e baixa velocidade. 

Vamos ficar, para o exemplo, apenas com estas duas opções. Na primeira, o 
SAVE normal, podendo ser HISAVE. Na segunda, na verdade deverão ser salvos o 
DB, isto é, a variável WS e o diretório daquele DB (caso tenha implementado), is¬ 
to é, o array VS. 

Apòs a gravação, tanto W$ como V$ devem ser reduzidas à situação inicial, 
isto é, WS =“■” e VS ser totalmente zerado. 

Vamos ver como fica a nova codificação da opção 7: 


3500 PRINT 
3510 PRINT 
3520 PRINT 
3530 SLGW 


"SALVANDO DB (BACKUP)" 
F , 11 í - " " D " " +PR0GRAMA " 
"2 - SOMENTE 0 '*“DB"* r " 


3540 LET K$=INKEY$ 

3550 IF K$="1" THEN GOTO 3590 
3560 IF K$="2" THEN GOTO 3640 
3580 GOTO 3540 

3590 PRINT "PREPARE 0 GRAVADOR, 


PRESSIONE PLAY E NEW LINE 
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3600 PAUSE 4E4 

3610 LET A=USR 8405 

3620 IF AOO THEN GOTÜ 3830 

3630 GOTO 100 

3640 DIM C$CLEN W$~T1) 

3650 LET Z=LEN W$ 

3660 LET C$=W$ 

3670 LET Z$="C* 

3680 PRTNT "PREPARE 0 GRAVADOR, 

3690 PAUSE 4E4 

3700 LET A=USR 9008 

3710 IF AOO THEN GOTO 3830 

3720 LET 

3730 DIM C$(200) 

3740 LET Z=200 
3750 FOR A=1 TO 10 


3760 LET C$=C*+V$ÍA) 


3770 NEXT A 
3780 LET C$="C" 

3790 LET A-USR 9008 
3800 IF AOO THEN GOTO 
3810 GOTO 5550 


OOOA 

. j i j . _ f 



RETURN 


3830 PRINT "ERRO-"; A 
3840 RETURN 


PRESSIONE PLAY E NEW LINE" 


A variável C$ está funcionando como o BUFFER, isto é, área ou variável de 

saída. 

O primeiro tamanho de C$ é o tamanho exato do DB obtido pela expressão 
LEN WS. O segundo é o tamanho exato do diretório, que pode ser determinado pe¬ 
lo número de entrada vezes (X) 20. 

O comando 3810 desvia para uma sub-rotina que zera o diretório, após sua 
gravação. 

Caso ocorra algum erro, o código ficará na variável A e o mesmo será impresso 
junto com a palavra ERRO. Caso isto ocorra, consulte o manual que acompanha 
o TK85 para análise da causa do erro. 

Conforme já foi dito inicialmente, nos comandos de gravação, qualquer que 
seja, pode-se optar pela velocidade normal ou HIGH-SPEED, conforme indicado no 
próprio comando. 

Procure pressionar PLAY antes de NEW LINE. 


Recuperando 

Neste caso, terá que ser criada uma rotina para tal. Considerando que se tenha 
usado 9 para a rotina de ordenação e B para listar o diretório, podemos usar C 
para esta. 
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É boa prática manter um controle sobre o tamanho dos DB’s gravados. Por 
exemplo, nunca maior que 3K bytes. Isto é necessário, neste caso, pois na leitura da 
fita é obrigatória a definição de um tamanho determinado para o BUFFER, ou va¬ 
riável, de leitura. Vamos considerar o tamanho igual a 3K. 

Vamos ver como fica a codificação: 


6000 RIM C$(3000> 

6010 LET 2=0 
6020 LET Z$= n C" 

6030 PRINT ‘'POSICIONE A FITA, PRESSIONE NEW LI NE E PLAY 

6040 PAUSE 4E4 

8050 LET A=U5R 3183 

6060 IF AOO THEN GOTO 3830 


Como sabemos pelo manual do equipamento, após esta leitura, a variável X 
conterá o tamanho exato da variável recuperada; com isto podemos recriar o DB, 
ou seja, a variável W$ com o seu tamanho exato. 


6070 LET W$=C$Í TO Z> 

6080 DIM C$C200) 

6030 LET 2=200 

6100 LET A=USR 3183 

6110 IF AOO THEN GOTO 3830 

6120 LET B=1 

6130 FOR A=1 TO 10 

6140 LET V$ÍA)=C$CB TO (20#A)) 

6150 LET B=B+20 

6160 NEXT A 

6170 LET 0$='“' 

6180 RETURN 


As observações quanto a algum possível erro na leitura são as mesmas da gra¬ 
vação; inclusive, está sendo desviado para os mesmos comandos de erro. 

Ê óbvio que a velocidade de leitura deve ser a mesma usada na gravação. 

Para a remontagem do diretório, foi usada a variável B para auxiliar no algorit¬ 
mo que transforma a variável linear CS no array VS, fazendo exatamente o inverso 
da rotina de gravação que transforma o array V$ de 10 ocorrências na variável li¬ 
near C$. 

Procure pressionar NEW LINE antes do PLAY. 
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SALVANDO E RECUPERANDO APENAS O DB NO TK90X 

No TK90X é muito fácil gravar programas ou apenas dados. Esta rotina faz 
exatamente isto. 

3500 PRINT “SALVANDO ZX-DB” 

3510 PRINT,, “1 - Programa + ‘DB’ ” 

3520 PRINT “2 - Somente o ‘DB 9 ” 

3540 LETkS = INKEYS 

3550 IF kS = “1” THEN GOTO 3610 

3560 IF k$ = “2” THEN GOTO 3640 

3580 GOTO 3540 

3610 SAVE “ZX-DB”: PAUSE 0 

3630 GOTO 40 

3640 SAVE “ZX-DB” DATA wS ( ): PAUSE 0 
3650 GOTO 40 

Para recuperar a matriz w$ gravada, basta comandar (modo direto) LOAD 
“ZX-DB” DATAwS (). 

Para entrar no modo direto basta, após o menu entrar na opção I, deletar am¬ 
bas as aspas e digitar STOP seguido de ENTER. Você obterá a mensagem do sistema 
operacional 

H STOP em INPUT 520:1 
e terá todo o acesso ao modo direto e à listagem. 


PALAVRAS FINAIS 

Após este capítulo, segue uma listagem completa do programa DB. 

Poderá ser verificado que foram feitas algumas pequenas alterações visando 
poupar alguns bytes. 

Observe que as constantes numéricas aparecem agora entre aspas f’)e com a 
função VAL prefixando-as. Foram incluídos os comandos de 30 a 90, onde algu¬ 
mas constantes foram colocadas em variáveis (J = 9000, K = 9300, L = 9500, M = 
9530, V = 5 e UM = 1). As constantes “0” (zero) foram substituídas peia expressão 
PI-PI. Para ganhar mais bytes, elimine os comandos REMS. 

Desejo sinceramente que tenha obtido ou que venha a obter algum proveito 
deste trabalho. 

Sabemos que tudo que se faz, por melhor que fique, sempre pode ser melho¬ 
rado. 

Não temos a menor pretensão de sermos completos, muito menos perfeitos, 
por isto, aceitamos críticas e sugestões de toda natureza. Aceitamos também con¬ 
sultas para alguns esclarecimentos extras. 

Para tal, basta escrever para a editora indicando nosso nome e o do livro, ou 
diretamente para: 

Caixa Postal 57.043 — Rio de Janeiro 

Qualquer que seja a crítica, será considerada como colaboração. 

Manoel Silva Rodrigues (1986) 
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ANEXOS 


LISTAGEM COMPLETA DO PROGRAMA ZX-DB 

Lembretes: 

— Comande antes da primeira execução do programa (apenas na primeira) 
LET WS = “■” 

— Nunca comande RUN 


VARIÁVEIS/CONSTANTES 


30 

REM 

VARIAVEÍS/CÜN 

40 

LET 

r i-~ 

V M ” 

1 1 I 

V f-i t- 

' 1 L) J1 

50 

LET 

Uli 

i=VAL 

"i" 

60 

1 CT 
LC. r 

J- 

VAL 

"9000" 

70 

LE f 

K- 

VAL 

"9300" 

80 

LET 

L-~ 

VAL 

"9500" 

90 

LET 

M-= 

VAL 

11 3530" 


Atenção para estas variáveis. Não use nenhuma com o mesmo nome. Na ver¬ 
dade, são constantes repetidas várias vezes. 

Fixando-as em variáveis, economizam-se bytes. 


MENU DE OPÇÕES 


100 CLS 
110 SL.ÜW 

120 PR 1 MT AT V, VAL " 9" j " ÜPCÜES 11 
rUNCOES PR 1 MC I PAIS" 
i 30 PR INT , , 11 1 - CR i AR ARQUI VO ", 
- DELETAR ARQUIVO/REGÍBTRÜ 15 , 
-■SEM FÜNÜAG DEFINIDA" f "4 - 
LISTAR ARQUIVO" 


11 


it 
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t! cr 


i 40 RR X NT , , ,! FUNCÜES AU XXL I ARES " , ,» 

- PRINT DO DB"f, 

"6 - MEMORIA DISFGNIDEL"7 - SALVAR ' ! 

11 DB " " 11 , ,“ 8 - SAL AR I ü LIQUI DO C ESPECIFI C A> “ 
150 LEI K$=INKEY$ 

160 IF KÍ<STR$ UM ÜR K&>"8" THEN GOTO VAL 

170 CLS 

180 LET I=UM 

190 LET INI = I 

200 GGSUB VAL K$4VAL "SOO" 

210 PAUSE VAL "4E4" 

220 GOTO VAL "100" 


II ^ CA I! 
L Ju 


CRIAR ARQUIVOS 


500 

PRINT 

" CRIANDO ARQUIVO" 

510 

FR I NT 

,,"QUAL 0 NOME ?" 

520 

INPUT 

m 

530 

LET W$ 

“W$+ "J" +N$+ ’ w 

54 U 

PRINT 

"QUANTOS REGISTROS 

550 

INPUT 

R 

560 

PRINT 

"QUANTOS DADOS ?" 

570 

INPUT 

D 

580 

CLS 




590 PRINT N$ 

600 FOR H~UM TO R 

610 FOR A=UM TO D 

620 PRINT "DADO " ; B;"."; A; ">" j 

630 INFUT D$ 

640 PRINT m 

650 LET W$~W$+D$+" »" 

660 NEXT A 

670 LET W$=W$( TO LEN Wf-UMÍ + W 
680 NEXT B 

690 LET W$-W$ < TO LEN W$-UM) 

700 RETURN 


DELETAR ARQUIVO 


n 


1000 SLOW 

1010 PRINT "DELETAR.. 

4020 PRINT ,, "ARQUIVO ?",,"REGISTRO 
1030 IF INKEY$="" THEN GOTO VAL ”1030" 


O I í 
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1040 IF INKEY$="A" THEN GOTO VAL 
1050 IF INKEY$“"R" THEN GOTO VAL 
1060 GOTO VAL 11 1030" 

1070 GGSUe L 


1030 
1030 
1100 
1110 
1120 
1130 


PRINI "NOME ARQUIVO ?" 
GOTO VAL "1120" 

GOSUB M 

PR TNT "CHAVE REGISTRO ? u 
INPUT m 
PRINT m 


1140 


FAST 


1150 GOSUB J 


"1070" 

" 1100 " 


1160 IF N $<>m THEN RETURN 
1170 FOR C=B-UM TO LEN m 
1180 LET R$=W$<’C) 

1130 IF R$=X$ OR THEN GOTO VAL 

1200 NEXT C 

1210 LET W$=W$Í TO A~UM)HJ$(C TD > 
1220 PRINT "DELETADO" 

1230 RETURN 


li 


1210 


tt 


SEM FUN ÇÃO 

1500 PR INT AT V, V; " SEM FUNCAO BEFI NI DA 11 
1510 RETURN 

LISTAR ARQUIVO 

2000 PRINT " LISTAR ARQUIVO ?" 

2010 GOSUB L 

2020 LET FIMARQ=PI-PI 

2030 INPUT N$ 

2040 PRINT m 

2050 PRINT "DADOS POR REGISTRO ?"; 

2060 INPUT N 
2070 PRINT N 
2080 DIM T$CN,VAL "10") 

2030 PRINT "TÍTULOS DOS DADOS ?<TAMANHO 10)" 
2100 FOR A=UM TO N 
2110 INPUT T$(A) 

2120 NEXT A 
2130 PRINT 
2140 FAST 
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2150 GOSUB J 

2160 IF D$ON$ THEN RE TU RN 
2170 SLÜW 

2180 FOR Á=UN TO N 
2190 GOSUB K 

2210 IF PEEK VAL "16442"<VAL "4 n THEN SCRQLL 
2220 PRINT T$CA);;PT 
2230 NEXT A 

2240 IF PEEK VAL 11 16442"<VAL "4 11 THEN SCRQLL 
2250 PRINT 

2260 IF FIMARQOUM THEN GOTO VAL ”2180" 

2270 SGROLL 

2280 PRINT " FIM" 

2290 RETURN 


PRINT DO DB 


2500 PRINT " PRINT DO ""DB 11,111 
2510 PRINT , t " CCASO ENCHA A TELA, 


" CONT ",,"NEWLINE)" 


2520 PRIN 


, f 




2530 RETURN 


MEMÓRIA DISPONÍVEL 


DIGITE",, 


3000 PRINT AT V,V;"MAPA DA RAM 
3010 PRINT ,,"TAMANHO PROGRAMA"; 

TAB 25 y PEEK 16396+256TPEEK 16397“ 16509, 

"PROG.+TELA+ VARIAVEIS >";T 
AB 24;"C“jPEEK iL404+2564PEEK 16405-163 
"DISPONIVEL";TAB 25y CPEEK 
16386+256$PE ER i 6367 ) — £. P 
EEK 16412+266-f l-'EEk 10413 ) 

3020 RETURN 


i ") " i 


SALVAR DB 


3500 PRINT ,,"LIGUE 0 GRAVADOR",,, 
"PRESSIONE QUALQUER TECLA" 

3510 PAUSE VAL "4E4" 


3520 SAVL "ÍX-DB 
3530 GOTO VAL 


Ü A m 1 
~r 
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CÁLCULO DO SALÁRIO LÍQUIDO 


4000 LET I=UM 

4010 PRINT "CALCULANDO SALARIO" 
4020 PRINT "ARQUIVO ?" 

4030 INPUT 
4040 PRINT m 
4050 PABT 
4060 GOSUB L 
4070 GOSUB J 

4080 IF D$< >N$ THEN RETURN 
4090 GOSUB N 

4100 PRINT "DIGITE NOME(CHAVE)" 
4110 LET I=INI 


4120 INPUT m 

4130 PRINT ,,"NOME","SALARIO" 
4140 PRINT m, 

4150 GOSUB J 

4160 IF D$<>N$ THEN RETURN 
4170 GOSUB K 
4ISO LET D$=P$ 

4190 GOSUB K 

4200 PRINT VAL D$~VAL P$ 


4210 SLOW 

4220 IF PEEK VAL "16442"<VAL "6" 


THEN CLS 


4230 PRINT ,,"OUTRO 
4240 IF INKEY** ,, S" 
4250 IF INKEY$="N" 
4260 GOTO VAL "4240 
4270 RETURN 


2(S/N)" 

THEN GOTO VAL -"4100 

THEN GOTO VAL "4270 
(1 


li 


SUB- ROTINAS 

9000 REM 4 SUBROTINA % 

9010 REM CHEGAR INICIO ARQ/REG 
9020 FOR A=í TO LEN W$ 

9030 LET R$=W$(A) 

9035 IF R$="H" THEN LET INI=A 
9040 IF R$-X$ THEN GOTO VAL "9100" 
9050 NEXT A 

9060 PRINT N$j" NAO EXISTE" 

9080 RETURN 

3090 REM CHEGAR AO ARQ/REG 


88 


3100 
9110 

Cl i ■ j ■ 

J ± i. ' / 

SI 30 
9140 
9150 

C; ■* í“ r* 
j x UO 

*7 


Jt 11 


s i /o 
9180 
9190 
9195 
9200 
9220 
9230 
9300 
3310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 


LET D$ 

FOR B-A-í-UM 70 LEN Wf 

lE I i.B.1 

1F R$-Y$ DR R $ ~ X 4> ÜR Rí ::: 11 Jl 11 FHEN CiLí 

LET D$=D$+R$ 

MEXI B 

ir then goto val " 9210 " 

LET A~B 

LET D$~ ,,n 

IF BCLEN W$ THEN £3010 VAL "9150" 

LET I=B-UM 
GOTO VAL "9050" 

LET C"B 
RETURN 

REM RECUPERAR DADO 
GQSUB M 
LET B=C 
LET P$= n " 

FOR OBHJH TO LEN W$ 

LET R$-W$CC) 

IF R$=Y$ ÜR R$-X$ OR R$= U J" 

LET P$=P*+R* 


í V a 


HEN b'J I U Vr iL 


9390 

9410 


NEXT C 

LET FIWARG-UM 
IF THEN 

9411 RETURN 
9500 LET 
3510 LET Y$~'W t 


LET FIMARQ=UM 


9520 RETURN 
9530 LET X$="*■" 
9540 LET Y$="■" 
9550 RETURN 


"9160" 


"9410" 
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VARIÁVEIS DO SISTEMA DO TK85 


ENDEREÇOS 

CONTEÚDO 

DECIMAL 

HEXA 

16384 

4000 

— Código de erro 

16385 

4001 

— Diversos FLAGS 

16386 

4002 

— Endereço da pilha de GOSUB 

16388 

4004 

— Área a ser protegida (RAMTOP) 

16390 

4006 

- Modalidade do cursor corrente 

16391 

4007 

— Número da linha que está sendo executada 

16393 

4009 

— Primeira variável do sistema a ser salva 

16394 

400A 

— Número da linha que tem o cursor 

16396 

4000 

— Endereço de início do arquivo de vídeo 

16398 

400E 

— Endereço da posição a ser PRINT 

16400 

4010 

— Início da área de variáveis 

16402 

4012 

— Endereço da variável que está sendo usada 

16404 

4014 

— Início da linha de edição 

16406 

4016 

— Próximo caractere a ser interpretado 

16408 

4018 

— Caractere precedente ao erro de sintaxe assinalado 

16410 

401A 

— Pilha de cálculos 

16412 

4010 

— Final da pilha de cálculos 

16414 

401E 

— Usado p/cãleulo de ponto flutuante 

16415 

401F 

— Início da área de cálculos da memória 

16417 

4021 

— Um byte de trabalho 

16418 

4022 

— Número de linhas para entrada 

16419 

4023 

— Número de linhas do topo do vídeo 

16421 

4025 

-- Última tecla pressionada 

16423 

4027 

— Estado de ‘debounce’ do teclado 

16424 

4028 

— Número de linhas em branco embaixo ou acima do vídeo 

16425 

4029 

— Próxima linha do programa a ser executada 

16427 

402B 

— Número da linha a ser executada caso comande CONT 

16429 

402D 

— Diversos FLAGS 

16430 

402 E 

— Tamanho do STRING 

16432 

4030 

— Próximo item da tabela de sintaxe 

16434 

4032 

— Semente do número randômico gerado 

16436 

4034 

- Incrementado de um a cada quadro exibido. Usado pe- 



lo PAUSE 

16438 

4036 

— Coordenadas do úitimo PLOT 

16440 

4039 

— Coordenadas do PRINT AT 

16443 

403 B 1 

— FLAGS relativos às modalidades FAST/SLOW 

16444 

403C 

- Áreas para guardar saídas LPRINT 

16477 

405D ■ 

— Área usada pelo calculador de memória 

16507 

407 B 

— Dois bytes de trabalho 

16509 

407 D 

— Início do programa em BASIC 
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FOLHA DE CODIFICAÇÃO BASIC 

Como venho sugerindo implementar novas rotinas no DB, nada mais justo 
que facilitar esta tarefa. 

Já venho dando “mãozinhas” na codificação, agora vou apresentar uma folha 
que facilita a escrita desta codificação. É a folha de “Codificação BASIC”, Não che- 
ga a ser imprescindível, é apenas um subsídio a mais. Com ela pode-se codificar o 
programa sem ter que usar o microcomputador. Vamos vê - la! 

Ela possui apenas três campos de informação: 

- OBSERVAÇÕES’; 

- NÚMEROe 

- CÓDIGOS E OPERANDOS 

Possui ainda uma numeração equivalente a linhas e colunas do vídeo. Esta nu¬ 
meração visa facilitar o comando PRINT. A princípio, ela é para codificação BASIC, 
mas pode ser usada também para simular os “Relatórios” no vídeo. Neste caso, 
quando escrever o PRINT, já estarão definidos os operandos de linha e coluna. 

O número de linhas aqui é o 'da tela normal (22 linhas), pois ela também pode 
ser usada como cópia da listagem (LIST) do programa. Caso queira trabalhar com 
24 linhas, dê o comando 

POKE 16418,0 (90X27) 

esta variável (byte 16418) contém o número de linhas para a entrada de dados. Nor¬ 
malmente, contém o número 2. Colocando zero, ficam as 24 linhas para os PRINT*s 
e nenhuma para entrada. Antes do próximo INPUT, volte a ter duas linhas para en¬ 
trada de dados com: 

POKE 16418,2 

O campo OBSERVAÇÕES não é para ser digitado. Seu objetivo é o de ser 
usado para se escrever “LABEDs”. O Labei é equivalente à numeração dos coman¬ 
dos, só que pode ser muito mais significativo. Você pode usar palavras que lembrem 
facilmente a utilidade da sub- rotina ou comando. 

Ele se mostra útil também quando você ainda não numerou os comandos, is¬ 
to é, codifica tudo sem número (somente no papel é lógico) depois então escolhe a 
numeração ideal. 

Como o nome diz, serve também para se escrever qualquer observação que 
possa interessar. 

O campo NÚMERO é bem conhecido nosso; resta apenas lembrar que mesmo 
os números que possuam menos que quatro algarismos ocupam quatro colunas. 
Procure numerar sempre lembrando-se disto. O número 8, por exemplo, deve ser: 
três espaços e o 8 na quarta casa. 

Na: continuação da linha que porventura venha a usar, comece a escrever na 
primeira quadriculada da linha seguinte, exatamente como acontece na tela. 

O campo CÓDIGO e OPERANDOS nada mais é do que o iugar para se escre¬ 
ver a codificação propriamente dita. 

Procure deixar sempre um espaço entre os elementos da codificação (número, 
comando, parâmetros etc.). Procure lembrar como é no vídeo e siga o mesmo espa¬ 
cejamento. 
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Uma das principais finalidades desta folha é a de servir como listagem do pro¬ 
grama, para quem não tem impressora. Esta listagem passa a fazer parte da docu¬ 
mentação do programa. 

Outra finalidade é de ser o rascunho, no qual você pode rabiscar, apagar etc., 
em qualquer lugar, mesmo onde não se possa ligar o microcomputador. 

Neste livro incluímos esta folha reduzida fixa, para você tirar cópias e usar. 
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Csl 

fN 

íd 

t- 

13 

gp 

lI 




<x 

V* 



à 


tr 

o 
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